1
0

Importer-Exporter.js 98 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226
  1. define("amber_core/Importer-Exporter", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Kernel-Objects", "amber_core/Kernel-Infrastructure"], function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Importer-Exporter');
  3. smalltalk.packages["Importer-Exporter"].transport = {"type":"amd","amdNamespace":"amber_core"};
  4. smalltalk.addClass('AbstractExporter', smalltalk.Object, [], 'Importer-Exporter');
  5. smalltalk.AbstractExporter.comment="I am an abstract exporter for Amber source code.";
  6. smalltalk.addMethod(
  7. smalltalk.method({
  8. selector: "chunkEscape:",
  9. category: 'convenience',
  10. fn: function (aString){
  11. var self=this;
  12. return smalltalk.withContext(function($ctx1) {
  13. var $1;
  14. $1=_st(_st(aString)._replace_with_("!","!!"))._trimBoth();
  15. return $1;
  16. }, function($ctx1) {$ctx1.fill(self,"chunkEscape:",{aString:aString},smalltalk.AbstractExporter)})},
  17. args: ["aString"],
  18. source: "chunkEscape: aString\x0a\x09\x22Replace all occurrences of ! with !! and trim at both ends.\x22\x0a\x0a\x09^(aString replace: '!' with: '!!') trimBoth",
  19. messageSends: ["trimBoth", "replace:with:"],
  20. referencedClasses: []
  21. }),
  22. smalltalk.AbstractExporter);
  23. smalltalk.addMethod(
  24. smalltalk.method({
  25. selector: "classNameFor:",
  26. category: 'convenience',
  27. fn: function (aClass){
  28. var self=this;
  29. return smalltalk.withContext(function($ctx1) {
  30. var $2,$3,$1;
  31. $2=_st(aClass)._isMetaclass();
  32. if(smalltalk.assert($2)){
  33. $1=_st(_st(_st(aClass)._instanceClass())._name()).__comma(" class");
  34. } else {
  35. $3=_st(aClass)._isNil();
  36. if(smalltalk.assert($3)){
  37. $1="nil";
  38. } else {
  39. $1=_st(aClass)._name();
  40. };
  41. };
  42. return $1;
  43. }, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.AbstractExporter)})},
  44. args: ["aClass"],
  45. source: "classNameFor: aClass\x0a\x09^aClass isMetaclass\x0a\x09\x09ifTrue: [ aClass instanceClass name, ' class' ]\x0a\x09\x09ifFalse: [\x0a\x09\x09\x09aClass isNil\x0a\x09\x09\x09\x09ifTrue: [ 'nil' ]\x0a\x09\x09\x09\x09ifFalse: [ aClass name ] ]",
  46. messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"],
  47. referencedClasses: []
  48. }),
  49. smalltalk.AbstractExporter);
  50. smalltalk.addMethod(
  51. smalltalk.method({
  52. selector: "recipe",
  53. category: 'fileOut',
  54. fn: function (){
  55. var self=this;
  56. return smalltalk.withContext(function($ctx1) {
  57. self._subclassResponsibility();
  58. return self}, function($ctx1) {$ctx1.fill(self,"recipe",{},smalltalk.AbstractExporter)})},
  59. args: [],
  60. source: "recipe\x0a\x09\x22Recipe to export a given package.\x22\x0a\x0a\x09self subclassResponsibility",
  61. messageSends: ["subclassResponsibility"],
  62. referencedClasses: []
  63. }),
  64. smalltalk.AbstractExporter);
  65. smalltalk.AbstractExporter.klass.iVarNames = ['default'];
  66. smalltalk.addMethod(
  67. smalltalk.method({
  68. selector: "default",
  69. category: 'instance creation',
  70. fn: function (){
  71. var self=this;
  72. return smalltalk.withContext(function($ctx1) {
  73. var $2,$1;
  74. $2=self["@default"];
  75. if(($receiver = $2) == nil || $receiver == undefined){
  76. self["@default"]=self._new();
  77. $1=self["@default"];
  78. } else {
  79. $1=$2;
  80. };
  81. return $1;
  82. }, function($ctx1) {$ctx1.fill(self,"default",{},smalltalk.AbstractExporter.klass)})},
  83. args: [],
  84. source: "default\x0a\x09^ default ifNil: [ default := self new ]",
  85. messageSends: ["ifNil:", "new"],
  86. referencedClasses: []
  87. }),
  88. smalltalk.AbstractExporter.klass);
  89. smalltalk.addClass('ChunkExporter', smalltalk.AbstractExporter, [], 'Importer-Exporter');
  90. smalltalk.ChunkExporter.comment="I am an exporter dedicated to outputting Amber source code in the classic Smalltalk chunk format.\x0a\x0aI do not output any compiled code.";
  91. smalltalk.addMethod(
  92. smalltalk.method({
  93. selector: "exportCategoryEpilogueOf:on:",
  94. category: 'output',
  95. fn: function (aCategory,aStream){
  96. var self=this;
  97. return smalltalk.withContext(function($ctx1) {
  98. var $1,$2;
  99. $1=aStream;
  100. _st($1)._nextPutAll_(" !");
  101. _st($1)._lf();
  102. $2=_st($1)._lf();
  103. return self}, function($ctx1) {$ctx1.fill(self,"exportCategoryEpilogueOf:on:",{aCategory:aCategory,aStream:aStream},smalltalk.ChunkExporter)})},
  104. args: ["aCategory", "aStream"],
  105. source: "exportCategoryEpilogueOf: aCategory on: aStream\x0a\x09aStream nextPutAll: ' !'; lf; lf",
  106. messageSends: ["nextPutAll:", "lf"],
  107. referencedClasses: []
  108. }),
  109. smalltalk.ChunkExporter);
  110. smalltalk.addMethod(
  111. smalltalk.method({
  112. selector: "exportCategoryPrologueOf:on:",
  113. category: 'output',
  114. fn: function (aCategory,aStream){
  115. var self=this;
  116. return smalltalk.withContext(function($ctx1) {
  117. var $1,$2;
  118. $1=aStream;
  119. _st($1)._nextPutAll_("!".__comma(self._classNameFor_(_st(aCategory)._theClass())));
  120. $2=_st($1)._nextPutAll_(_st(" methodsFor: '".__comma(_st(aCategory)._name())).__comma("'!"));
  121. return self}, function($ctx1) {$ctx1.fill(self,"exportCategoryPrologueOf:on:",{aCategory:aCategory,aStream:aStream},smalltalk.ChunkExporter)})},
  122. args: ["aCategory", "aStream"],
  123. source: "exportCategoryPrologueOf: aCategory on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: '!', (self classNameFor: aCategory theClass);\x0a\x09\x09nextPutAll: ' methodsFor: ''', aCategory name, '''!'",
  124. messageSends: ["nextPutAll:", ",", "classNameFor:", "theClass", "name"],
  125. referencedClasses: []
  126. }),
  127. smalltalk.ChunkExporter);
  128. smalltalk.addMethod(
  129. smalltalk.method({
  130. selector: "exportDefinitionOf:on:",
  131. category: 'output',
  132. fn: function (aClass,aStream){
  133. var self=this;
  134. return smalltalk.withContext(function($ctx1) {
  135. var $1,$2,$3,$4,$5,$6,$7;
  136. $1=aStream;
  137. _st($1)._nextPutAll_(self._classNameFor_(_st(aClass)._superclass()));
  138. _st($1)._nextPutAll_(" subclass: #".__comma(self._classNameFor_(aClass)));
  139. _st($1)._lf();
  140. _st($1)._tab();
  141. $2=_st($1)._nextPutAll_("instanceVariableNames: '");
  142. _st(_st(aClass)._instanceVariableNames())._do_separatedBy_((function(each){
  143. return smalltalk.withContext(function($ctx2) {
  144. return _st(aStream)._nextPutAll_(each);
  145. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
  146. return smalltalk.withContext(function($ctx2) {
  147. return _st(aStream)._nextPutAll_(" ");
  148. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  149. $3=aStream;
  150. _st($3)._nextPutAll_("'");
  151. _st($3)._lf();
  152. _st($3)._tab();
  153. _st($3)._nextPutAll_(_st("package: '".__comma(_st(aClass)._category())).__comma("'!"));
  154. $4=_st($3)._lf();
  155. $5=_st(_st(aClass)._comment())._notEmpty();
  156. if(smalltalk.assert($5)){
  157. $6=aStream;
  158. _st($6)._nextPutAll_(_st("!".__comma(self._classNameFor_(aClass))).__comma(" commentStamp!"));
  159. _st($6)._lf();
  160. _st($6)._nextPutAll_(_st(self._chunkEscape_(_st(aClass)._comment())).__comma("!"));
  161. $7=_st($6)._lf();
  162. $7;
  163. };
  164. _st(aStream)._lf();
  165. return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
  166. args: ["aClass", "aStream"],
  167. source: "exportDefinitionOf: aClass on: aStream\x0a\x09\x22Chunk format.\x22\x0a\x0a\x09aStream\x0a\x09\x09nextPutAll: (self classNameFor: aClass superclass);\x0a\x09\x09nextPutAll: ' subclass: #', (self classNameFor: aClass); lf;\x0a\x09\x09tab; nextPutAll: 'instanceVariableNames: '''.\x0a\x09aClass instanceVariableNames\x0a\x09\x09do: [:each | aStream nextPutAll: each]\x0a\x09\x09separatedBy: [aStream nextPutAll: ' '].\x0a\x09aStream\x0a\x09\x09nextPutAll: ''''; lf;\x0a\x09\x09tab; nextPutAll: 'package: ''', aClass category, '''!'; lf.\x0a\x09aClass comment notEmpty ifTrue: [\x0a\x09\x09aStream\x0a\x09\x09nextPutAll: '!', (self classNameFor: aClass), ' commentStamp!';lf;\x0a\x09\x09nextPutAll: (self chunkEscape: aClass comment), '!';lf].\x0a\x09aStream lf",
  168. messageSends: ["nextPutAll:", "classNameFor:", "superclass", ",", "lf", "tab", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "chunkEscape:", "comment", "notEmpty"],
  169. referencedClasses: []
  170. }),
  171. smalltalk.ChunkExporter);
  172. smalltalk.addMethod(
  173. smalltalk.method({
  174. selector: "exportMetaDefinitionOf:on:",
  175. category: 'output',
  176. fn: function (aClass,aStream){
  177. var self=this;
  178. return smalltalk.withContext(function($ctx1) {
  179. var $1,$2,$3,$4,$5;
  180. $1=_st(_st(_st(aClass)._class())._instanceVariableNames())._isEmpty();
  181. if(! smalltalk.assert($1)){
  182. $2=aStream;
  183. _st($2)._nextPutAll_(self._classNameFor_(_st(aClass)._class()));
  184. $3=_st($2)._nextPutAll_(" instanceVariableNames: '");
  185. $3;
  186. _st(_st(_st(aClass)._class())._instanceVariableNames())._do_separatedBy_((function(each){
  187. return smalltalk.withContext(function($ctx2) {
  188. return _st(aStream)._nextPutAll_(each);
  189. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
  190. return smalltalk.withContext(function($ctx2) {
  191. return _st(aStream)._nextPutAll_(" ");
  192. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  193. $4=aStream;
  194. _st($4)._nextPutAll_("'!");
  195. _st($4)._lf();
  196. $5=_st($4)._lf();
  197. $5;
  198. };
  199. return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
  200. args: ["aClass", "aStream"],
  201. source: "exportMetaDefinitionOf: aClass on: aStream\x0a\x0a\x09aClass class instanceVariableNames isEmpty ifFalse: [\x0a\x09\x09aStream\x0a\x09\x09\x09nextPutAll: (self classNameFor: aClass class);\x0a\x09\x09\x09nextPutAll: ' instanceVariableNames: '''.\x0a\x09\x09aClass class instanceVariableNames\x0a\x09\x09\x09do: [:each | aStream nextPutAll: each]\x0a\x09\x09\x09separatedBy: [aStream nextPutAll: ' '].\x0a\x09\x09aStream\x0a\x09\x09\x09nextPutAll: '''!'; lf; lf]",
  202. messageSends: ["ifFalse:", "nextPutAll:", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "lf", "isEmpty"],
  203. referencedClasses: []
  204. }),
  205. smalltalk.ChunkExporter);
  206. smalltalk.addMethod(
  207. smalltalk.method({
  208. selector: "exportMethod:on:",
  209. category: 'output',
  210. fn: function (aMethod,aStream){
  211. var self=this;
  212. return smalltalk.withContext(function($ctx1) {
  213. var $1,$2;
  214. $1=aStream;
  215. _st($1)._lf();
  216. _st($1)._lf();
  217. _st($1)._nextPutAll_(self._chunkEscape_(_st(aMethod)._source()));
  218. _st($1)._lf();
  219. $2=_st($1)._nextPutAll_("!");
  220. return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:on:",{aMethod:aMethod,aStream:aStream},smalltalk.ChunkExporter)})},
  221. args: ["aMethod", "aStream"],
  222. source: "exportMethod: aMethod on: aStream\x0a\x09aStream\x0a\x09\x09lf; lf; nextPutAll: (self chunkEscape: aMethod source); lf;\x0a\x09\x09nextPutAll: '!'",
  223. messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"],
  224. referencedClasses: []
  225. }),
  226. smalltalk.ChunkExporter);
  227. smalltalk.addMethod(
  228. smalltalk.method({
  229. selector: "exportPackageDefinitionOf:on:",
  230. category: 'output',
  231. fn: function (aPackage,aStream){
  232. var self=this;
  233. return smalltalk.withContext(function($ctx1) {
  234. var $1,$2;
  235. $1=aStream;
  236. _st($1)._nextPutAll_(_st("Smalltalk current createPackage: '".__comma(_st(aPackage)._name())).__comma("'!"));
  237. $2=_st($1)._lf();
  238. return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.ChunkExporter)})},
  239. args: ["aPackage", "aStream"],
  240. source: "exportPackageDefinitionOf: aPackage on: aStream\x0a\x09\x22Chunk format.\x22\x0a\x0a\x09aStream\x0a\x09\x09nextPutAll: 'Smalltalk current createPackage: ''', aPackage name, '''!';\x0a\x09\x09lf",
  241. messageSends: ["nextPutAll:", ",", "name", "lf"],
  242. referencedClasses: []
  243. }),
  244. smalltalk.ChunkExporter);
  245. smalltalk.addMethod(
  246. smalltalk.method({
  247. selector: "extensionCategoriesOfPackage:",
  248. category: 'accessing',
  249. fn: function (aPackage){
  250. var self=this;
  251. var name,map,result;
  252. function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  253. function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
  254. function $MethodCategory(){return smalltalk.MethodCategory||(typeof MethodCategory=="undefined"?nil:MethodCategory)}
  255. function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
  256. function $Package(){return smalltalk.Package||(typeof Package=="undefined"?nil:Package)}
  257. return smalltalk.withContext(function($ctx1) {
  258. var $1,$2;
  259. name=_st(aPackage)._name();
  260. result=_st($OrderedCollection())._new();
  261. _st(_st($Package())._sortedClasses_(_st(_st($Smalltalk())._current())._classes()))._do_((function(each){
  262. return smalltalk.withContext(function($ctx2) {
  263. return _st([each,_st(each)._class()])._do_((function(aClass){
  264. return smalltalk.withContext(function($ctx3) {
  265. map=_st($Dictionary())._new();
  266. map;
  267. _st(aClass)._protocolsDo_((function(category,methods){
  268. return smalltalk.withContext(function($ctx4) {
  269. $1=_st(category).__eq("*".__comma(name));
  270. if(smalltalk.assert($1)){
  271. return _st(map)._at_put_(category,methods);
  272. };
  273. }, function($ctx4) {$ctx4.fillBlock({category:category,methods:methods},$ctx3)})}));
  274. return _st(result)._addAll_(_st(_st(_st(map)._keys())._sorted_((function(a,b){
  275. return smalltalk.withContext(function($ctx4) {
  276. return _st(a).__lt_eq(b);
  277. }, function($ctx4) {$ctx4.fillBlock({a:a,b:b},$ctx3)})})))._collect_((function(category){
  278. return smalltalk.withContext(function($ctx4) {
  279. return _st($MethodCategory())._name_theClass_methods_(category,aClass,_st(map)._at_(category));
  280. }, function($ctx4) {$ctx4.fillBlock({category:category},$ctx3)})})));
  281. }, function($ctx3) {$ctx3.fillBlock({aClass:aClass},$ctx2)})}));
  282. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  283. $2=result;
  284. return $2;
  285. }, function($ctx1) {$ctx1.fill(self,"extensionCategoriesOfPackage:",{aPackage:aPackage,name:name,map:map,result:result},smalltalk.ChunkExporter)})},
  286. args: ["aPackage"],
  287. source: "extensionCategoriesOfPackage: aPackage\x0a\x09\x22Issue #143: sort protocol alphabetically\x22\x0a\x0a\x09| name map result |\x0a\x09name := aPackage name.\x0a\x09result := OrderedCollection new.\x0a\x09(Package sortedClasses: Smalltalk current classes) do: [:each |\x0a\x09\x09{each. each class} do: [:aClass |\x0a\x09\x09\x09map := Dictionary new.\x0a\x09\x09\x09aClass protocolsDo: [:category :methods |\x0a\x09\x09\x09\x09category = ('*', name) ifTrue: [ map at: category put: methods ]].\x0a\x09\x09\x09result addAll: ((map keys sorted: [:a :b | a <= b ]) collect: [:category |\x0a\x09\x09\x09\x09MethodCategory name: category theClass: aClass methods: (map at: category)]) ]].\x0a\x09^result",
  288. messageSends: ["name", "new", "do:", "protocolsDo:", "ifTrue:", "at:put:", "=", ",", "addAll:", "collect:", "name:theClass:methods:", "at:", "sorted:", "<=", "keys", "class", "sortedClasses:", "classes", "current"],
  289. referencedClasses: ["OrderedCollection", "Dictionary", "MethodCategory", "Smalltalk", "Package"]
  290. }),
  291. smalltalk.ChunkExporter);
  292. smalltalk.addMethod(
  293. smalltalk.method({
  294. selector: "methodsOfCategory:",
  295. category: 'accessing',
  296. fn: function (aCategory){
  297. var self=this;
  298. return smalltalk.withContext(function($ctx1) {
  299. var $1;
  300. $1=_st(_st(aCategory)._methods())._sorted_((function(a,b){
  301. return smalltalk.withContext(function($ctx2) {
  302. return _st(_st(a)._selector()).__lt_eq(_st(b)._selector());
  303. }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})}));
  304. return $1;
  305. }, function($ctx1) {$ctx1.fill(self,"methodsOfCategory:",{aCategory:aCategory},smalltalk.ChunkExporter)})},
  306. args: ["aCategory"],
  307. source: "methodsOfCategory: aCategory\x0a\x09\x22Issue #143: sort methods alphabetically\x22\x0a\x0a\x09^(aCategory methods) sorted: [:a :b | a selector <= b selector]",
  308. messageSends: ["sorted:", "<=", "selector", "methods"],
  309. referencedClasses: []
  310. }),
  311. smalltalk.ChunkExporter);
  312. smalltalk.addMethod(
  313. smalltalk.method({
  314. selector: "ownCategoriesOfClass:",
  315. category: 'accessing',
  316. fn: function (aClass){
  317. var self=this;
  318. var map;
  319. function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
  320. function $MethodCategory(){return smalltalk.MethodCategory||(typeof MethodCategory=="undefined"?nil:MethodCategory)}
  321. return smalltalk.withContext(function($ctx1) {
  322. var $1,$2;
  323. map=_st($Dictionary())._new();
  324. _st(aClass)._protocolsDo_((function(category,methods){
  325. return smalltalk.withContext(function($ctx2) {
  326. $1=_st(category)._match_("^\x5c*");
  327. if(! smalltalk.assert($1)){
  328. return _st(map)._at_put_(category,methods);
  329. };
  330. }, function($ctx2) {$ctx2.fillBlock({category:category,methods:methods},$ctx1)})}));
  331. $2=_st(_st(_st(map)._keys())._sorted_((function(a,b){
  332. return smalltalk.withContext(function($ctx2) {
  333. return _st(a).__lt_eq(b);
  334. }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})})))._collect_((function(category){
  335. return smalltalk.withContext(function($ctx2) {
  336. return _st($MethodCategory())._name_theClass_methods_(category,aClass,_st(map)._at_(category));
  337. }, function($ctx2) {$ctx2.fillBlock({category:category},$ctx1)})}));
  338. return $2;
  339. }, function($ctx1) {$ctx1.fill(self,"ownCategoriesOfClass:",{aClass:aClass,map:map},smalltalk.ChunkExporter)})},
  340. args: ["aClass"],
  341. source: "ownCategoriesOfClass: aClass\x0a\x09\x22Answer the protocols of aClassthat are not package extensions\x22\x0a\x09\x0a\x09\x22Issue #143: sort protocol alphabetically\x22\x0a\x0a\x09| map |\x0a\x09map := Dictionary new.\x0a\x09aClass protocolsDo: [:category :methods |\x0a\x09\x09(category match: '^\x5c*') ifFalse: [ map at: category put: methods ]].\x0a\x09^(map keys sorted: [:a :b | a <= b ]) collect: [:category |\x0a\x09\x09MethodCategory name: category theClass: aClass methods: (map at: category) ]",
  342. messageSends: ["new", "protocolsDo:", "ifFalse:", "at:put:", "match:", "collect:", "name:theClass:methods:", "at:", "sorted:", "<=", "keys"],
  343. referencedClasses: ["Dictionary", "MethodCategory"]
  344. }),
  345. smalltalk.ChunkExporter);
  346. smalltalk.addMethod(
  347. smalltalk.method({
  348. selector: "ownCategoriesOfMetaClass:",
  349. category: 'accessing',
  350. fn: function (aClass){
  351. var self=this;
  352. return smalltalk.withContext(function($ctx1) {
  353. var $1;
  354. $1=self._ownCategoriesOfClass_(_st(aClass)._class());
  355. return $1;
  356. }, function($ctx1) {$ctx1.fill(self,"ownCategoriesOfMetaClass:",{aClass:aClass},smalltalk.ChunkExporter)})},
  357. args: ["aClass"],
  358. source: "ownCategoriesOfMetaClass: aClass\x0a\x09\x22Issue #143: sort protocol alphabetically\x22\x0a\x0a\x09^self ownCategoriesOfClass: aClass class",
  359. messageSends: ["ownCategoriesOfClass:", "class"],
  360. referencedClasses: []
  361. }),
  362. smalltalk.ChunkExporter);
  363. smalltalk.addMethod(
  364. smalltalk.method({
  365. selector: "recipe",
  366. category: 'fileOut',
  367. fn: function (){
  368. var self=this;
  369. var exportCategoryRecipe;
  370. function $PluggableExporter(){return smalltalk.PluggableExporter||(typeof PluggableExporter=="undefined"?nil:PluggableExporter)}
  371. return smalltalk.withContext(function($ctx1) {
  372. var $1;
  373. exportCategoryRecipe=[self.__minus_gt("exportCategoryPrologueOf:on:"),[self.__minus_gt("methodsOfCategory:"),self.__minus_gt("exportMethod:on:")],self.__minus_gt("exportCategoryEpilogueOf:on:")];
  374. $1=[self.__minus_gt("exportPackageDefinitionOf:on:"),[_st($PluggableExporter()).__minus_gt("ownClassesOfPackage:"),self.__minus_gt("exportDefinitionOf:on:"),_st([self.__minus_gt("ownCategoriesOfClass:")]).__comma(exportCategoryRecipe),self.__minus_gt("exportMetaDefinitionOf:on:"),_st([self.__minus_gt("ownCategoriesOfMetaClass:")]).__comma(exportCategoryRecipe)],_st([self.__minus_gt("extensionCategoriesOfPackage:")]).__comma(exportCategoryRecipe)];
  375. return $1;
  376. }, function($ctx1) {$ctx1.fill(self,"recipe",{exportCategoryRecipe:exportCategoryRecipe},smalltalk.ChunkExporter)})},
  377. args: [],
  378. source: "recipe\x0a\x09\x22Export a given package.\x22\x0a\x0a\x09| exportCategoryRecipe |\x0a\x09exportCategoryRecipe := {\x0a\x09\x09self -> #exportCategoryPrologueOf:on:.\x0a\x09\x09{\x0a\x09\x09\x09self -> #methodsOfCategory:.\x0a\x09\x09\x09self -> #exportMethod:on: }.\x0a\x09\x09self -> #exportCategoryEpilogueOf:on: }.\x0a\x0a\x09^{\x0a\x09\x09self -> #exportPackageDefinitionOf:on:.\x0a\x09\x09{\x0a\x09\x09\x09PluggableExporter -> #ownClassesOfPackage:.\x0a\x09\x09\x09self -> #exportDefinitionOf:on:.\x0a\x09\x09\x09{ self -> #ownCategoriesOfClass: }, exportCategoryRecipe.\x0a\x09\x09\x09self -> #exportMetaDefinitionOf:on:.\x0a\x09\x09\x09{ self -> #ownCategoriesOfMetaClass: }, exportCategoryRecipe }.\x0a\x09\x09{ self -> #extensionCategoriesOfPackage: }, exportCategoryRecipe\x0a\x09}",
  379. messageSends: ["->", ","],
  380. referencedClasses: ["PluggableExporter"]
  381. }),
  382. smalltalk.ChunkExporter);
  383. smalltalk.addClass('Exporter', smalltalk.AbstractExporter, [], 'Importer-Exporter');
  384. smalltalk.Exporter.comment="I am responsible for outputting Amber code into a JavaScript string.\x0a\x0aThe generated output is enough to reconstruct the exported data, including Smalltalk source code and other metadata.\x0a\x0a## Use case\x0a\x0aI am typically used to save code outside of the Amber runtime (committing to disk, etc.).\x0a\x0a## API\x0a\x0aUse `#exportAll`, `#exportClass:` or `#exportPackage:` methods.";
  385. smalltalk.addMethod(
  386. smalltalk.method({
  387. selector: "amdRecipe",
  388. category: 'fileOut',
  389. fn: function (){
  390. var self=this;
  391. var result;
  392. function $AmdExporter(){return smalltalk.AmdExporter||(typeof AmdExporter=="undefined"?nil:AmdExporter)}
  393. return smalltalk.withContext(function($ctx1) {
  394. var $1;
  395. result=self._recipe();
  396. _st(_st(result)._first())._key_($AmdExporter());
  397. _st(_st(result)._last())._key_($AmdExporter());
  398. $1=result;
  399. return $1;
  400. }, function($ctx1) {$ctx1.fill(self,"amdRecipe",{result:result},smalltalk.Exporter)})},
  401. args: [],
  402. source: "amdRecipe\x0a\x09\x22Export a given package with amd transport type.\x22\x0a\x0a\x09| result |\x0a\x09result := self recipe.\x0a\x09result first key: AmdExporter.\x0a\x09result last key: AmdExporter.\x0a\x09^result",
  403. messageSends: ["recipe", "key:", "first", "last"],
  404. referencedClasses: ["AmdExporter"]
  405. }),
  406. smalltalk.Exporter);
  407. smalltalk.addMethod(
  408. smalltalk.method({
  409. selector: "classNameFor:",
  410. category: 'convenience',
  411. fn: function (aClass){
  412. var self=this;
  413. return smalltalk.withContext(function($ctx1) {
  414. var $2,$3,$1;
  415. $2=_st(aClass)._isMetaclass();
  416. if(smalltalk.assert($2)){
  417. $1=_st(_st(_st(aClass)._instanceClass())._name()).__comma(".klass");
  418. } else {
  419. $3=_st(aClass)._isNil();
  420. if(smalltalk.assert($3)){
  421. $1="nil";
  422. } else {
  423. $1=_st(aClass)._name();
  424. };
  425. };
  426. return $1;
  427. }, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.Exporter)})},
  428. args: ["aClass"],
  429. source: "classNameFor: aClass\x0a\x09^aClass isMetaclass\x0a\x09\x09ifTrue: [ aClass instanceClass name, '.klass' ]\x0a\x09\x09ifFalse: [\x0a\x09\x09\x09aClass isNil\x0a\x09\x09\x09\x09ifTrue: [ 'nil' ]\x0a\x09\x09\x09\x09ifFalse: [ aClass name ] ]",
  430. messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"],
  431. referencedClasses: []
  432. }),
  433. smalltalk.Exporter);
  434. smalltalk.addMethod(
  435. smalltalk.method({
  436. selector: "exportDefinitionOf:on:",
  437. category: 'output',
  438. fn: function (aClass,aStream){
  439. var self=this;
  440. return smalltalk.withContext(function($ctx1) {
  441. var $1,$2,$3,$4,$5,$6,$7;
  442. $1=aStream;
  443. _st($1)._lf();
  444. _st($1)._nextPutAll_("smalltalk.addClass(");
  445. _st($1)._nextPutAll_(_st("'".__comma(self._classNameFor_(aClass))).__comma("', "));
  446. _st($1)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aClass)._superclass())));
  447. $2=_st($1)._nextPutAll_(", [");
  448. _st(_st(aClass)._instanceVariableNames())._do_separatedBy_((function(each){
  449. return smalltalk.withContext(function($ctx2) {
  450. return _st(aStream)._nextPutAll_(_st("'".__comma(each)).__comma("'"));
  451. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
  452. return smalltalk.withContext(function($ctx2) {
  453. return _st(aStream)._nextPutAll_(", ");
  454. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  455. $3=aStream;
  456. _st($3)._nextPutAll_("], '");
  457. _st($3)._nextPutAll_(_st(_st(aClass)._category()).__comma("'"));
  458. $4=_st($3)._nextPutAll_(");");
  459. $5=_st(_st(aClass)._comment())._notEmpty();
  460. if(smalltalk.assert($5)){
  461. $6=aStream;
  462. _st($6)._lf();
  463. _st($6)._nextPutAll_("smalltalk.");
  464. _st($6)._nextPutAll_(self._classNameFor_(aClass));
  465. _st($6)._nextPutAll_(".comment=");
  466. _st($6)._nextPutAll_(_st(_st(aClass)._comment())._asJavascript());
  467. $7=_st($6)._nextPutAll_(";");
  468. $7;
  469. };
  470. _st(aStream)._lf();
  471. return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
  472. args: ["aClass", "aStream"],
  473. source: "exportDefinitionOf: aClass on: aStream\x0a\x09aStream\x0a\x09\x09lf;\x0a\x09\x09nextPutAll: 'smalltalk.addClass(';\x0a\x09\x09nextPutAll: '''', (self classNameFor: aClass), ''', ';\x0a\x09\x09nextPutAll: 'smalltalk.', (self classNameFor: aClass superclass);\x0a\x09\x09nextPutAll: ', ['.\x0a\x09aClass instanceVariableNames\x0a\x09\x09do: [:each | aStream nextPutAll: '''', each, '''']\x0a\x09\x09separatedBy: [aStream nextPutAll: ', '].\x0a\x09aStream\x0a\x09\x09nextPutAll: '], ''';\x0a\x09\x09nextPutAll: aClass category, '''';\x0a\x09\x09nextPutAll: ');'.\x0a\x09aClass comment notEmpty ifTrue: [\x0a\x09\x09aStream\x0a\x09\x09\x09lf;\x0a\x09\x09nextPutAll: 'smalltalk.';\x0a\x09\x09nextPutAll: (self classNameFor: aClass);\x0a\x09\x09nextPutAll: '.comment=';\x0a\x09\x09nextPutAll: aClass comment asJavascript;\x0a\x09\x09nextPutAll: ';'].\x0a\x09aStream lf",
  474. messageSends: ["lf", "nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "asJavascript", "comment", "notEmpty"],
  475. referencedClasses: []
  476. }),
  477. smalltalk.Exporter);
  478. smalltalk.addMethod(
  479. smalltalk.method({
  480. selector: "exportMetaDefinitionOf:on:",
  481. category: 'output',
  482. fn: function (aClass,aStream){
  483. var self=this;
  484. function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
  485. return smalltalk.withContext(function($ctx1) {
  486. var $1,$2,$3;
  487. _st(aStream)._lf();
  488. $1=_st(_st(_st(aClass)._class())._instanceVariableNames())._isEmpty();
  489. if(! smalltalk.assert($1)){
  490. $2=aStream;
  491. _st($2)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aClass)._class())));
  492. $3=_st($2)._nextPutAll_(".iVarNames = [");
  493. $3;
  494. _st(_st(_st(aClass)._class())._instanceVariableNames())._do_separatedBy_((function(each){
  495. return smalltalk.withContext(function($ctx2) {
  496. return _st(aStream)._nextPutAll_(_st("'".__comma(each)).__comma("'"));
  497. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
  498. return smalltalk.withContext(function($ctx2) {
  499. return _st(aStream)._nextPutAll_(",");
  500. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  501. _st(aStream)._nextPutAll_("];".__comma(_st($String())._lf()));
  502. };
  503. return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
  504. args: ["aClass", "aStream"],
  505. source: "exportMetaDefinitionOf: aClass on: aStream\x0a\x09aStream lf.\x0a\x09aClass class instanceVariableNames isEmpty ifFalse: [\x0a\x09\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.', (self classNameFor: aClass class);\x0a\x09\x09nextPutAll: '.iVarNames = ['.\x0a\x09\x09aClass class instanceVariableNames\x0a\x09\x09do: [:each | aStream nextPutAll: '''', each, '''']\x0a\x09\x09separatedBy: [aStream nextPutAll: ','].\x0a\x09\x09aStream nextPutAll: '];', String lf]",
  506. messageSends: ["lf", "ifFalse:", "nextPutAll:", ",", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "isEmpty"],
  507. referencedClasses: ["String"]
  508. }),
  509. smalltalk.Exporter);
  510. smalltalk.addMethod(
  511. smalltalk.method({
  512. selector: "exportMethod:on:",
  513. category: 'output',
  514. fn: function (aMethod,aStream){
  515. var self=this;
  516. return smalltalk.withContext(function($ctx1) {
  517. var $1,$2,$3,$4;
  518. $1=aStream;
  519. _st($1)._nextPutAll_("smalltalk.addMethod(");
  520. _st($1)._lf();
  521. _st($1)._nextPutAll_("smalltalk.method({");
  522. _st($1)._lf();
  523. _st($1)._nextPutAll_(_st("selector: ".__comma(_st(_st(aMethod)._selector())._asJavascript())).__comma(","));
  524. _st($1)._lf();
  525. _st($1)._nextPutAll_(_st("category: '".__comma(_st(aMethod)._category())).__comma("',"));
  526. _st($1)._lf();
  527. _st($1)._nextPutAll_(_st("fn: ".__comma(_st(_st(aMethod)._fn())._compiledSource())).__comma(","));
  528. _st($1)._lf();
  529. _st($1)._nextPutAll_(_st("args: ".__comma(_st(_st(aMethod)._arguments())._asJavascript())).__comma(","));
  530. _st($1)._lf();
  531. _st($1)._nextPutAll_(_st("source: ".__comma(_st(_st(aMethod)._source())._asJavascript())).__comma(","));
  532. _st($1)._lf();
  533. _st($1)._nextPutAll_(_st("messageSends: ".__comma(_st(_st(aMethod)._messageSends())._asJavascript())).__comma(","));
  534. _st($1)._lf();
  535. $2=_st($1)._nextPutAll_("referencedClasses: ".__comma(_st(_st(aMethod)._referencedClasses())._asJavascript()));
  536. $3=aStream;
  537. _st($3)._lf();
  538. _st($3)._nextPutAll_("}),");
  539. _st($3)._lf();
  540. _st($3)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aMethod)._methodClass())));
  541. _st($3)._nextPutAll_(");");
  542. _st($3)._lf();
  543. $4=_st($3)._lf();
  544. return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:on:",{aMethod:aMethod,aStream:aStream},smalltalk.Exporter)})},
  545. args: ["aMethod", "aStream"],
  546. source: "exportMethod: aMethod on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.addMethod(';lf;\x0a\x09\x09\x22nextPutAll: aMethod selector asSelector asJavascript, ',';lf;\x22\x0a\x09\x09nextPutAll: 'smalltalk.method({';lf;\x0a\x09\x09nextPutAll: 'selector: ', aMethod selector asJavascript, ',';lf;\x0a\x09\x09nextPutAll: 'category: ''', aMethod category, ''',';lf;\x0a\x09\x09nextPutAll: 'fn: ', aMethod fn compiledSource, ',';lf;\x0a\x09\x09nextPutAll: 'args: ', aMethod arguments asJavascript, ','; lf;\x0a\x09\x09nextPutAll: 'source: ', aMethod source asJavascript, ',';lf;\x0a\x09\x09nextPutAll: 'messageSends: ', aMethod messageSends asJavascript, ',';lf;\x0a\x09\x09nextPutAll: 'referencedClasses: ', aMethod referencedClasses asJavascript.\x0a\x09aStream\x0a\x09\x09lf;\x0a\x09\x09nextPutAll: '}),';lf;\x0a\x09\x09nextPutAll: 'smalltalk.', (self classNameFor: aMethod methodClass);\x0a\x09\x09nextPutAll: ');';lf;lf",
  547. messageSends: ["nextPutAll:", "lf", ",", "asJavascript", "selector", "category", "compiledSource", "fn", "arguments", "source", "messageSends", "referencedClasses", "classNameFor:", "methodClass"],
  548. referencedClasses: []
  549. }),
  550. smalltalk.Exporter);
  551. smalltalk.addMethod(
  552. smalltalk.method({
  553. selector: "exportPackageDefinitionOf:on:",
  554. category: 'output',
  555. fn: function (aPackage,aStream){
  556. var self=this;
  557. return smalltalk.withContext(function($ctx1) {
  558. var $1,$2;
  559. $1=aStream;
  560. _st($1)._nextPutAll_("smalltalk.addPackage(");
  561. _st($1)._nextPutAll_(_st("'".__comma(_st(aPackage)._name())).__comma("');"));
  562. $2=_st($1)._lf();
  563. return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.Exporter)})},
  564. args: ["aPackage", "aStream"],
  565. source: "exportPackageDefinitionOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.addPackage(';\x0a\x09\x09nextPutAll: '''', aPackage name, ''');';\x0a\x09\x09lf",
  566. messageSends: ["nextPutAll:", ",", "name", "lf"],
  567. referencedClasses: []
  568. }),
  569. smalltalk.Exporter);
  570. smalltalk.addMethod(
  571. smalltalk.method({
  572. selector: "exportPackageEpilogueOf:on:",
  573. category: 'output',
  574. fn: function (aPackage,aStream){
  575. var self=this;
  576. return smalltalk.withContext(function($ctx1) {
  577. var $1,$2;
  578. $1=aStream;
  579. _st($1)._nextPutAll_("})(global_smalltalk,global_nil,global__st);");
  580. $2=_st($1)._lf();
  581. return self}, function($ctx1) {$ctx1.fill(self,"exportPackageEpilogueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.Exporter)})},
  582. args: ["aPackage", "aStream"],
  583. source: "exportPackageEpilogueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: '})(global_smalltalk,global_nil,global__st);';\x0a\x09\x09lf",
  584. messageSends: ["nextPutAll:", "lf"],
  585. referencedClasses: []
  586. }),
  587. smalltalk.Exporter);
  588. smalltalk.addMethod(
  589. smalltalk.method({
  590. selector: "exportPackagePrologueOf:on:",
  591. category: 'output',
  592. fn: function (aPackage,aStream){
  593. var self=this;
  594. return smalltalk.withContext(function($ctx1) {
  595. var $1,$2;
  596. $1=aStream;
  597. _st($1)._nextPutAll_("(function(smalltalk,nil,_st){");
  598. $2=_st($1)._lf();
  599. return self}, function($ctx1) {$ctx1.fill(self,"exportPackagePrologueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.Exporter)})},
  600. args: ["aPackage", "aStream"],
  601. source: "exportPackagePrologueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: '(function(smalltalk,nil,_st){';\x0a\x09\x09lf",
  602. messageSends: ["nextPutAll:", "lf"],
  603. referencedClasses: []
  604. }),
  605. smalltalk.Exporter);
  606. smalltalk.addMethod(
  607. smalltalk.method({
  608. selector: "exportPackageTransportOf:on:",
  609. category: 'output',
  610. fn: function (aPackage,aStream){
  611. var self=this;
  612. var json;
  613. return smalltalk.withContext(function($ctx1) {
  614. var $1,$2,$3;
  615. json=_st(aPackage)._transportJson();
  616. $1=_st(json).__eq("null");
  617. if(! smalltalk.assert($1)){
  618. $2=aStream;
  619. _st($2)._nextPutAll_("smalltalk.packages[");
  620. _st($2)._nextPutAll_(_st(_st(aPackage)._name())._asJavascript());
  621. _st($2)._nextPutAll_("].transport = ");
  622. _st($2)._nextPutAll_(json);
  623. _st($2)._nextPutAll_(";");
  624. $3=_st($2)._lf();
  625. $3;
  626. };
  627. return self}, function($ctx1) {$ctx1.fill(self,"exportPackageTransportOf:on:",{aPackage:aPackage,aStream:aStream,json:json},smalltalk.Exporter)})},
  628. args: ["aPackage", "aStream"],
  629. source: "exportPackageTransportOf: aPackage on: aStream\x0a\x09| json |\x0a\x09json := aPackage transportJson.\x0a\x09json = 'null' ifFalse: [\x0a\x09\x09aStream\x0a\x09\x09\x09nextPutAll: 'smalltalk.packages[';\x0a\x09\x09\x09nextPutAll: aPackage name asJavascript;\x0a\x09\x09\x09nextPutAll: '].transport = ';\x0a\x09\x09\x09nextPutAll: json;\x0a\x09\x09\x09nextPutAll: ';';\x0a\x09\x09\x09lf ]",
  630. messageSends: ["transportJson", "ifFalse:", "nextPutAll:", "asJavascript", "name", "lf", "="],
  631. referencedClasses: []
  632. }),
  633. smalltalk.Exporter);
  634. smalltalk.addMethod(
  635. smalltalk.method({
  636. selector: "extensionMethodsOfPackage:",
  637. category: 'accessing',
  638. fn: function (aPackage){
  639. var self=this;
  640. var name,result;
  641. function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  642. function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
  643. function $Package(){return smalltalk.Package||(typeof Package=="undefined"?nil:Package)}
  644. return smalltalk.withContext(function($ctx1) {
  645. var $1;
  646. name=_st(aPackage)._name();
  647. result=_st($OrderedCollection())._new();
  648. _st(_st($Package())._sortedClasses_(_st(_st($Smalltalk())._current())._classes()))._do_((function(each){
  649. return smalltalk.withContext(function($ctx2) {
  650. return _st([each,_st(each)._class()])._do_((function(aClass){
  651. return smalltalk.withContext(function($ctx3) {
  652. return _st(result)._addAll_(_st(_st(_st(_st(aClass)._methodDictionary())._values())._sorted_((function(a,b){
  653. return smalltalk.withContext(function($ctx4) {
  654. return _st(_st(a)._selector()).__lt_eq(_st(b)._selector());
  655. }, function($ctx4) {$ctx4.fillBlock({a:a,b:b},$ctx3)})})))._select_((function(method){
  656. return smalltalk.withContext(function($ctx4) {
  657. return _st(_st(method)._category()).__eq("*".__comma(name));
  658. }, function($ctx4) {$ctx4.fillBlock({method:method},$ctx3)})})));
  659. }, function($ctx3) {$ctx3.fillBlock({aClass:aClass},$ctx2)})}));
  660. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  661. $1=result;
  662. return $1;
  663. }, function($ctx1) {$ctx1.fill(self,"extensionMethodsOfPackage:",{aPackage:aPackage,name:name,result:result},smalltalk.Exporter)})},
  664. args: ["aPackage"],
  665. source: "extensionMethodsOfPackage: aPackage\x0a\x09\x22Issue #143: sort classes and methods alphabetically\x22\x0a\x0a\x09| name result |\x0a\x09name := aPackage name.\x0a\x09result := OrderedCollection new.\x0a\x09(Package sortedClasses: Smalltalk current classes) do: [:each |\x0a\x09\x09{each. each class} do: [:aClass |\x0a\x09\x09\x09result addAll: (((aClass methodDictionary values)\x0a\x09\x09\x09\x09sorted: [:a :b | a selector <= b selector])\x0a\x09\x09\x09\x09select: [:method | method category = ('*', name)]) ]].\x0a\x09^result",
  666. messageSends: ["name", "new", "do:", "addAll:", "select:", "=", ",", "category", "sorted:", "<=", "selector", "values", "methodDictionary", "class", "sortedClasses:", "classes", "current"],
  667. referencedClasses: ["OrderedCollection", "Smalltalk", "Package"]
  668. }),
  669. smalltalk.Exporter);
  670. smalltalk.addMethod(
  671. smalltalk.method({
  672. selector: "ownMethodsOfClass:",
  673. category: 'accessing',
  674. fn: function (aClass){
  675. var self=this;
  676. return smalltalk.withContext(function($ctx1) {
  677. var $1;
  678. $1=_st(_st(_st(_st(aClass)._methodDictionary())._values())._sorted_((function(a,b){
  679. return smalltalk.withContext(function($ctx2) {
  680. return _st(_st(a)._selector()).__lt_eq(_st(b)._selector());
  681. }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})})))._reject_((function(each){
  682. return smalltalk.withContext(function($ctx2) {
  683. return _st(_st(each)._category())._match_("^\x5c*");
  684. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  685. return $1;
  686. }, function($ctx1) {$ctx1.fill(self,"ownMethodsOfClass:",{aClass:aClass},smalltalk.Exporter)})},
  687. args: ["aClass"],
  688. source: "ownMethodsOfClass: aClass\x0a\x09\x22Issue #143: sort methods alphabetically\x22\x0a\x0a\x09^((aClass methodDictionary values) sorted: [:a :b | a selector <= b selector])\x0a\x09\x09reject: [:each | (each category match: '^\x5c*')]",
  689. messageSends: ["reject:", "match:", "category", "sorted:", "<=", "selector", "values", "methodDictionary"],
  690. referencedClasses: []
  691. }),
  692. smalltalk.Exporter);
  693. smalltalk.addMethod(
  694. smalltalk.method({
  695. selector: "ownMethodsOfMetaClass:",
  696. category: 'accessing',
  697. fn: function (aClass){
  698. var self=this;
  699. return smalltalk.withContext(function($ctx1) {
  700. var $1;
  701. $1=self._ownMethodsOfClass_(_st(aClass)._class());
  702. return $1;
  703. }, function($ctx1) {$ctx1.fill(self,"ownMethodsOfMetaClass:",{aClass:aClass},smalltalk.Exporter)})},
  704. args: ["aClass"],
  705. source: "ownMethodsOfMetaClass: aClass\x0a\x09\x22Issue #143: sort methods alphabetically\x22\x0a\x0a\x09^self ownMethodsOfClass: aClass class",
  706. messageSends: ["ownMethodsOfClass:", "class"],
  707. referencedClasses: []
  708. }),
  709. smalltalk.Exporter);
  710. smalltalk.addMethod(
  711. smalltalk.method({
  712. selector: "recipe",
  713. category: 'fileOut',
  714. fn: function (){
  715. var self=this;
  716. function $PluggableExporter(){return smalltalk.PluggableExporter||(typeof PluggableExporter=="undefined"?nil:PluggableExporter)}
  717. return smalltalk.withContext(function($ctx1) {
  718. var $1;
  719. $1=[self.__minus_gt("exportPackagePrologueOf:on:"),self.__minus_gt("exportPackageDefinitionOf:on:"),self.__minus_gt("exportPackageTransportOf:on:"),[_st($PluggableExporter()).__minus_gt("ownClassesOfPackage:"),self.__minus_gt("exportDefinitionOf:on:"),[self.__minus_gt("ownMethodsOfClass:"),self.__minus_gt("exportMethod:on:")],self.__minus_gt("exportMetaDefinitionOf:on:"),[self.__minus_gt("ownMethodsOfMetaClass:"),self.__minus_gt("exportMethod:on:")]],[self.__minus_gt("extensionMethodsOfPackage:"),self.__minus_gt("exportMethod:on:")],self.__minus_gt("exportPackageEpilogueOf:on:")];
  720. return $1;
  721. }, function($ctx1) {$ctx1.fill(self,"recipe",{},smalltalk.Exporter)})},
  722. args: [],
  723. source: "recipe\x0a\x09\x22Export a given package.\x22\x0a\x0a\x09^{\x0a\x09\x09self -> #exportPackagePrologueOf:on:.\x0a\x09\x09self -> #exportPackageDefinitionOf:on:.\x0a\x09\x09self -> #exportPackageTransportOf:on:.\x0a\x09\x09{\x0a\x09\x09\x09PluggableExporter -> #ownClassesOfPackage:.\x0a\x09\x09\x09self -> #exportDefinitionOf:on:.\x0a\x09\x09\x09{\x0a\x09\x09\x09\x09self -> #ownMethodsOfClass:.\x0a\x09\x09\x09\x09self -> #exportMethod:on: }.\x0a\x09\x09\x09self -> #exportMetaDefinitionOf:on:.\x0a\x09\x09\x09{\x0a\x09\x09\x09\x09self -> #ownMethodsOfMetaClass:.\x0a\x09\x09\x09\x09self -> #exportMethod:on: } }.\x0a\x09\x09{\x0a\x09\x09\x09self -> #extensionMethodsOfPackage:.\x0a\x09\x09\x09self -> #exportMethod:on: }.\x0a\x09\x09self -> #exportPackageEpilogueOf:on:\x0a\x09}",
  724. messageSends: ["->"],
  725. referencedClasses: ["PluggableExporter"]
  726. }),
  727. smalltalk.Exporter);
  728. smalltalk.addClass('StrippedExporter', smalltalk.Exporter, [], 'Importer-Exporter');
  729. smalltalk.StrippedExporter.comment="I export Amber code into a JavaScript string, but without any optional associated data like the Amber source code.";
  730. smalltalk.addMethod(
  731. smalltalk.method({
  732. selector: "exportDefinitionOf:on:",
  733. category: 'output',
  734. fn: function (aClass,aStream){
  735. var self=this;
  736. return smalltalk.withContext(function($ctx1) {
  737. var $1,$2,$3,$4;
  738. $1=aStream;
  739. _st($1)._lf();
  740. _st($1)._nextPutAll_("smalltalk.addClass(");
  741. _st($1)._nextPutAll_(_st("'".__comma(self._classNameFor_(aClass))).__comma("', "));
  742. _st($1)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aClass)._superclass())));
  743. $2=_st($1)._nextPutAll_(", [");
  744. _st(_st(aClass)._instanceVariableNames())._do_separatedBy_((function(each){
  745. return smalltalk.withContext(function($ctx2) {
  746. return _st(aStream)._nextPutAll_(_st("'".__comma(each)).__comma("'"));
  747. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
  748. return smalltalk.withContext(function($ctx2) {
  749. return _st(aStream)._nextPutAll_(", ");
  750. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  751. $3=aStream;
  752. _st($3)._nextPutAll_("], '");
  753. _st($3)._nextPutAll_(_st(_st(aClass)._category()).__comma("'"));
  754. $4=_st($3)._nextPutAll_(");");
  755. _st(aStream)._lf();
  756. return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.StrippedExporter)})},
  757. args: ["aClass", "aStream"],
  758. source: "exportDefinitionOf: aClass on: aStream\x0a\x09aStream\x0a\x09\x09lf;\x0a\x09\x09nextPutAll: 'smalltalk.addClass(';\x0a\x09\x09nextPutAll: '''', (self classNameFor: aClass), ''', ';\x0a\x09\x09nextPutAll: 'smalltalk.', (self classNameFor: aClass superclass);\x0a\x09\x09nextPutAll: ', ['.\x0a\x09aClass instanceVariableNames\x0a\x09\x09do: [:each | aStream nextPutAll: '''', each, '''']\x0a\x09\x09separatedBy: [aStream nextPutAll: ', '].\x0a\x09aStream\x0a\x09\x09nextPutAll: '], ''';\x0a\x09\x09nextPutAll: aClass category, '''';\x0a\x09\x09nextPutAll: ');'.\x0a\x09aStream lf",
  759. messageSends: ["lf", "nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category"],
  760. referencedClasses: []
  761. }),
  762. smalltalk.StrippedExporter);
  763. smalltalk.addMethod(
  764. smalltalk.method({
  765. selector: "exportMethod:on:",
  766. category: 'output',
  767. fn: function (aMethod,aStream){
  768. var self=this;
  769. return smalltalk.withContext(function($ctx1) {
  770. var $1,$2;
  771. $1=aStream;
  772. _st($1)._nextPutAll_("smalltalk.addMethod(");
  773. _st($1)._lf();
  774. _st($1)._nextPutAll_("smalltalk.method({");
  775. _st($1)._lf();
  776. _st($1)._nextPutAll_(_st("selector: ".__comma(_st(_st(aMethod)._selector())._asJavascript())).__comma(","));
  777. _st($1)._lf();
  778. _st($1)._nextPutAll_(_st("fn: ".__comma(_st(_st(aMethod)._fn())._compiledSource())).__comma(","));
  779. _st($1)._lf();
  780. _st($1)._nextPutAll_("messageSends: ".__comma(_st(_st(aMethod)._messageSends())._asJavascript()));
  781. _st($1)._nextPutAll_("}),");
  782. _st($1)._lf();
  783. _st($1)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aMethod)._methodClass())));
  784. _st($1)._nextPutAll_(");");
  785. _st($1)._lf();
  786. $2=_st($1)._lf();
  787. return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:on:",{aMethod:aMethod,aStream:aStream},smalltalk.StrippedExporter)})},
  788. args: ["aMethod", "aStream"],
  789. source: "exportMethod: aMethod on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.addMethod(';lf;\x0a\x09\x09\x22nextPutAll: aMethod selector asSelector asJavascript, ',';lf;\x22\x0a\x09\x09nextPutAll: 'smalltalk.method({';lf;\x0a\x09\x09nextPutAll: 'selector: ', aMethod selector asJavascript, ',';lf;\x0a\x09\x09nextPutAll: 'fn: ', aMethod fn compiledSource, ',';lf;\x0a\x09\x09nextPutAll: 'messageSends: ', aMethod messageSends asJavascript;\x0a\x09\x09nextPutAll: '}),';lf;\x0a\x09\x09nextPutAll: 'smalltalk.', (self classNameFor: aMethod methodClass);\x0a\x09\x09nextPutAll: ');';lf;lf",
  790. messageSends: ["nextPutAll:", "lf", ",", "asJavascript", "selector", "compiledSource", "fn", "messageSends", "classNameFor:", "methodClass"],
  791. referencedClasses: []
  792. }),
  793. smalltalk.StrippedExporter);
  794. smalltalk.addClass('AmdExporter', smalltalk.Object, [], 'Importer-Exporter');
  795. smalltalk.addMethod(
  796. smalltalk.method({
  797. selector: "amdNamesOfPackages:",
  798. category: 'private',
  799. fn: function (anArray){
  800. var self=this;
  801. var deps,depNames;
  802. return smalltalk.withContext(function($ctx1) {
  803. var $1;
  804. $1=_st(_st(anArray)._select_((function(each){
  805. return smalltalk.withContext(function($ctx2) {
  806. return _st(_st(each)._amdNamespace())._notNil();
  807. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})))._collect_((function(each){
  808. return smalltalk.withContext(function($ctx2) {
  809. return _st(_st(_st(each)._amdNamespace()).__comma("/")).__comma(_st(each)._name());
  810. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  811. return $1;
  812. }, function($ctx1) {$ctx1.fill(self,"amdNamesOfPackages:",{anArray:anArray,deps:deps,depNames:depNames},smalltalk.AmdExporter.klass)})},
  813. args: ["anArray"],
  814. source: "amdNamesOfPackages: anArray\x0a\x09| deps depNames |\x0a\x09^(anArray\x0a\x09\x09select: [ :each | each amdNamespace notNil ])\x0a\x09\x09collect: [ :each | each amdNamespace, '/', each name ]",
  815. messageSends: ["collect:", ",", "name", "amdNamespace", "select:", "notNil"],
  816. referencedClasses: []
  817. }),
  818. smalltalk.AmdExporter.klass);
  819. smalltalk.addMethod(
  820. smalltalk.method({
  821. selector: "exportPackageEpilogueOf:on:",
  822. category: 'exporting-output',
  823. fn: function (aPackage,aStream){
  824. var self=this;
  825. return smalltalk.withContext(function($ctx1) {
  826. var $1,$2;
  827. $1=aStream;
  828. _st($1)._nextPutAll_("});");
  829. $2=_st($1)._lf();
  830. return self}, function($ctx1) {$ctx1.fill(self,"exportPackageEpilogueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.AmdExporter.klass)})},
  831. args: ["aPackage", "aStream"],
  832. source: "exportPackageEpilogueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: '});';\x0a\x09\x09lf",
  833. messageSends: ["nextPutAll:", "lf"],
  834. referencedClasses: []
  835. }),
  836. smalltalk.AmdExporter.klass);
  837. smalltalk.addMethod(
  838. smalltalk.method({
  839. selector: "exportPackagePrologueOf:on:",
  840. category: 'exporting-output',
  841. fn: function (aPackage,aStream){
  842. var self=this;
  843. return smalltalk.withContext(function($ctx1) {
  844. var $1,$2,$4,$3,$5;
  845. $1=aStream;
  846. _st($1)._nextPutAll_("define(\x22");
  847. $2=$1;
  848. $4=_st(aPackage)._amdNamespace();
  849. if(($receiver = $4) == nil || $receiver == undefined){
  850. $3="amber_core";
  851. } else {
  852. $3=$4;
  853. };
  854. _st($2)._nextPutAll_($3);
  855. _st($1)._nextPutAll_("/");
  856. _st($1)._nextPutAll_(_st(aPackage)._name());
  857. _st($1)._nextPutAll_("\x22, ");
  858. _st($1)._nextPutAll_(_st(["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st"].__comma(self._amdNamesOfPackages_(_st(aPackage)._loadDependencies())))._asJavascript());
  859. _st($1)._nextPutAll_(", function(smalltalk,nil,_st){");
  860. $5=_st($1)._lf();
  861. return self}, function($ctx1) {$ctx1.fill(self,"exportPackagePrologueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.AmdExporter.klass)})},
  862. args: ["aPackage", "aStream"],
  863. source: "exportPackagePrologueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'define(\x22';\x0a\x09\x09nextPutAll: (aPackage amdNamespace ifNil: [ 'amber_core' ]); \x22ifNil: only for LegacyPH, it should not happen with AmdPH\x22\x0a\x09\x09nextPutAll: '/';\x0a\x09\x09nextPutAll: aPackage name;\x0a\x09\x09nextPutAll: '\x22, ';\x0a\x09\x09nextPutAll: (#('amber_vm/smalltalk' 'amber_vm/nil' 'amber_vm/_st'), (self amdNamesOfPackages: aPackage loadDependencies)) asJavascript;\x0a\x09\x09nextPutAll: ', function(smalltalk,nil,_st){';\x0a\x09\x09lf",
  864. messageSends: ["nextPutAll:", "ifNil:", "amdNamespace", "name", "asJavascript", ",", "amdNamesOfPackages:", "loadDependencies", "lf"],
  865. referencedClasses: []
  866. }),
  867. smalltalk.AmdExporter.klass);
  868. smalltalk.addClass('ChunkParser', smalltalk.Object, ['stream'], 'Importer-Exporter');
  869. smalltalk.ChunkParser.comment="I am responsible for parsing aStream contents in the chunk format.\x0a\x0a## API\x0a\x0a ChunkParser new\x0a stream: aStream;\x0a nextChunk";
  870. smalltalk.addMethod(
  871. smalltalk.method({
  872. selector: "nextChunk",
  873. category: 'reading',
  874. fn: function (){
  875. var self=this;
  876. var char,result,chunk;
  877. return smalltalk.withContext(function($ctx1) {
  878. var $1,$2,$3;
  879. var $early={};
  880. try {
  881. result=""._writeStream();
  882. _st((function(){
  883. return smalltalk.withContext(function($ctx2) {
  884. char=_st(self["@stream"])._next();
  885. char;
  886. return _st(char)._notNil();
  887. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  888. return smalltalk.withContext(function($ctx2) {
  889. $1=_st(char).__eq("!");
  890. if(smalltalk.assert($1)){
  891. $2=_st(_st(self["@stream"])._peek()).__eq("!");
  892. if(smalltalk.assert($2)){
  893. _st(self["@stream"])._next();
  894. } else {
  895. $3=_st(_st(result)._contents())._trimBoth();
  896. throw $early=[$3];
  897. };
  898. };
  899. return _st(result)._nextPut_(char);
  900. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  901. return nil;
  902. }
  903. catch(e) {if(e===$early)return e[0]; throw e}
  904. }, function($ctx1) {$ctx1.fill(self,"nextChunk",{char:char,result:result,chunk:chunk},smalltalk.ChunkParser)})},
  905. args: [],
  906. source: "nextChunk\x0a\x09\x22The chunk format (Smalltalk Interchange Format or Fileout format)\x0a\x09is a trivial format but can be a bit tricky to understand:\x0a\x09\x09- Uses the exclamation mark as delimiter of chunks.\x0a\x09\x09- Inside a chunk a normal exclamation mark must be doubled.\x0a\x09\x09- A non empty chunk must be a valid Smalltalk expression.\x0a\x09\x09- A chunk on top level with a preceding empty chunk is an instruction chunk:\x0a\x09\x09\x09- The object created by the expression then takes over reading chunks.\x0a\x0a\x09This method returns next chunk as a String (trimmed), empty String (all whitespace) or nil.\x22\x0a\x0a\x09| char result chunk |\x0a\x09result := '' writeStream.\x0a\x09\x09[char := stream next.\x0a\x09\x09char notNil] whileTrue: [\x0a\x09\x09\x09\x09char = '!' ifTrue: [\x0a\x09\x09\x09\x09\x09\x09stream peek = '!'\x0a\x09\x09\x09\x09\x09\x09\x09\x09ifTrue: [stream next \x22skipping the escape double\x22]\x0a\x09\x09\x09\x09\x09\x09\x09\x09ifFalse: [^result contents trimBoth \x22chunk end marker found\x22]].\x0a\x09\x09\x09\x09result nextPut: char].\x0a\x09^nil \x22a chunk needs to end with !\x22",
  907. messageSends: ["writeStream", "whileTrue:", "ifTrue:", "ifTrue:ifFalse:", "next", "trimBoth", "contents", "=", "peek", "nextPut:", "notNil"],
  908. referencedClasses: []
  909. }),
  910. smalltalk.ChunkParser);
  911. smalltalk.addMethod(
  912. smalltalk.method({
  913. selector: "stream:",
  914. category: 'accessing',
  915. fn: function (aStream){
  916. var self=this;
  917. return smalltalk.withContext(function($ctx1) {
  918. self["@stream"]=aStream;
  919. return self}, function($ctx1) {$ctx1.fill(self,"stream:",{aStream:aStream},smalltalk.ChunkParser)})},
  920. args: ["aStream"],
  921. source: "stream: aStream\x0a\x09stream := aStream",
  922. messageSends: [],
  923. referencedClasses: []
  924. }),
  925. smalltalk.ChunkParser);
  926. smalltalk.addMethod(
  927. smalltalk.method({
  928. selector: "on:",
  929. category: 'instance creation',
  930. fn: function (aStream){
  931. var self=this;
  932. return smalltalk.withContext(function($ctx1) {
  933. var $1;
  934. $1=_st(self._new())._stream_(aStream);
  935. return $1;
  936. }, function($ctx1) {$ctx1.fill(self,"on:",{aStream:aStream},smalltalk.ChunkParser.klass)})},
  937. args: ["aStream"],
  938. source: "on: aStream\x0a\x09^self new stream: aStream",
  939. messageSends: ["stream:", "new"],
  940. referencedClasses: []
  941. }),
  942. smalltalk.ChunkParser.klass);
  943. smalltalk.addClass('ExportRecipeInterpreter', smalltalk.Object, [], 'Importer-Exporter');
  944. smalltalk.ExportRecipeInterpreter.comment="I am an interpreter for export recipes.\x0a\x0a## Recipe format\x0a\x0aRecipe is an array, which can contain two kinds of elements:\x0a\x0a - an assocation where the key is the receiver and the value is a two-arguments selector\x0a In this case, `receiver perform: selector withArguments: { data. stream }` is called.\x0a\x09This essentially defines one step of export process.\x0a\x09The key (eg. receiver) is presumed to be some kind of 'repository' of the exporting methods\x0a\x09that just format appropriate aspect of data into a stream; like a class or a singleton,\x0a\x09so that the recipe itself can be decoupled from data.\x0a\x0a - a subarray, where first element is special and the rest is recursive recipe.\x0a\x0a `subarray first` must be an association similar to one above,\x0a\x09with key being the 'repository' receiver, but value is one-arg selector.\x0a\x09In this case, `receiver perform: selector withArguments: { data }` should create a collection.\x0a\x09Then, the sub-recipe (`subarray allButFirst`) is applied to every element of a collection, eg.\x0a\x09 collection do: [ :each | self export: each using: sa allButFirst on: stream ]";
  945. smalltalk.addMethod(
  946. smalltalk.method({
  947. selector: "interpret:for:on:",
  948. category: 'interpreting',
  949. fn: function (aRecipe,anObject,aStream){
  950. var self=this;
  951. var recipeStream;
  952. return smalltalk.withContext(function($ctx1) {
  953. recipeStream=_st(aRecipe)._readStream();
  954. _st((function(){
  955. return smalltalk.withContext(function($ctx2) {
  956. return _st(recipeStream)._atEnd();
  957. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
  958. return smalltalk.withContext(function($ctx2) {
  959. return self._interpretStep_for_on_(_st(recipeStream)._next(),anObject,aStream);
  960. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  961. return self}, function($ctx1) {$ctx1.fill(self,"interpret:for:on:",{aRecipe:aRecipe,anObject:anObject,aStream:aStream,recipeStream:recipeStream},smalltalk.ExportRecipeInterpreter)})},
  962. args: ["aRecipe", "anObject", "aStream"],
  963. source: "interpret: aRecipe for: anObject on: aStream\x0a\x09| recipeStream |\x0a\x09\x0a\x09recipeStream := aRecipe readStream.\x0a\x09\x0a\x09[ recipeStream atEnd ] whileFalse: [\x0a\x09\x09self \x0a\x09\x09\x09interpretStep: recipeStream next\x0a\x09\x09\x09for: anObject\x0a\x09\x09\x09on: aStream ]",
  964. messageSends: ["readStream", "whileFalse:", "interpretStep:for:on:", "next", "atEnd"],
  965. referencedClasses: []
  966. }),
  967. smalltalk.ExportRecipeInterpreter);
  968. smalltalk.addMethod(
  969. smalltalk.method({
  970. selector: "interpretStep:for:on:",
  971. category: 'interpreting',
  972. fn: function (aRecipeStep,anObject,aStream){
  973. var self=this;
  974. return smalltalk.withContext(function($ctx1) {
  975. var $1,$2;
  976. $1=_st(_st(aRecipeStep)._value()).__eq_eq(aRecipeStep);
  977. if(smalltalk.assert($1)){
  978. $2=self._interpretSubRecipe_for_on_(aRecipeStep,anObject,aStream);
  979. return $2;
  980. };
  981. _st(_st(aRecipeStep)._key())._perform_withArguments_(_st(aRecipeStep)._value(),[anObject,aStream]);
  982. return self}, function($ctx1) {$ctx1.fill(self,"interpretStep:for:on:",{aRecipeStep:aRecipeStep,anObject:anObject,aStream:aStream},smalltalk.ExportRecipeInterpreter)})},
  983. args: ["aRecipeStep", "anObject", "aStream"],
  984. source: "interpretStep: aRecipeStep for: anObject on: aStream\x0a\x09aRecipeStep value == aRecipeStep ifTrue: [ \x0a\x09\x09^ self interpretSubRecipe: aRecipeStep for: anObject on: aStream ].\x0a\x09\x09\x09\x0a\x09aRecipeStep key perform: aRecipeStep value withArguments: { anObject. aStream }",
  985. messageSends: ["ifTrue:", "interpretSubRecipe:for:on:", "==", "value", "perform:withArguments:", "key"],
  986. referencedClasses: []
  987. }),
  988. smalltalk.ExportRecipeInterpreter);
  989. smalltalk.addMethod(
  990. smalltalk.method({
  991. selector: "interpretSubRecipe:for:on:",
  992. category: 'interpreting',
  993. fn: function (aRecipe,anObject,aStream){
  994. var self=this;
  995. var selection;
  996. return smalltalk.withContext(function($ctx1) {
  997. selection=_st(_st(_st(aRecipe)._first())._key())._perform_withArguments_(_st(_st(aRecipe)._first())._value(),[anObject]);
  998. _st(selection)._do_((function(each){
  999. return smalltalk.withContext(function($ctx2) {
  1000. return self._interpret_for_on_(_st(aRecipe)._allButFirst(),each,aStream);
  1001. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  1002. return self}, function($ctx1) {$ctx1.fill(self,"interpretSubRecipe:for:on:",{aRecipe:aRecipe,anObject:anObject,aStream:aStream,selection:selection},smalltalk.ExportRecipeInterpreter)})},
  1003. args: ["aRecipe", "anObject", "aStream"],
  1004. source: "interpretSubRecipe: aRecipe for: anObject on: aStream\x0a\x09| selection |\x0a\x09selection := aRecipe first key \x0a\x09\x09perform: aRecipe first value \x0a\x09\x09withArguments: { anObject }.\x0a\x09selection do: [ :each |\x09\x0a\x09\x09self interpret: aRecipe allButFirst for: each on: aStream ]",
  1005. messageSends: ["perform:withArguments:", "value", "first", "key", "do:", "interpret:for:on:", "allButFirst"],
  1006. referencedClasses: []
  1007. }),
  1008. smalltalk.ExportRecipeInterpreter);
  1009. smalltalk.addClass('Importer', smalltalk.Object, [], 'Importer-Exporter');
  1010. smalltalk.Importer.comment="I can import Amber code from a string in the chunk format.\x0a\x0a## API\x0a\x0a Importer new import: aString";
  1011. smalltalk.addMethod(
  1012. smalltalk.method({
  1013. selector: "import:",
  1014. category: 'fileIn',
  1015. fn: function (aStream){
  1016. var self=this;
  1017. var chunk,result,parser,lastEmpty;
  1018. function $ChunkParser(){return smalltalk.ChunkParser||(typeof ChunkParser=="undefined"?nil:ChunkParser)}
  1019. function $Compiler(){return smalltalk.Compiler||(typeof Compiler=="undefined"?nil:Compiler)}
  1020. return smalltalk.withContext(function($ctx1) {
  1021. var $1,$2;
  1022. parser=_st($ChunkParser())._on_(aStream);
  1023. lastEmpty=false;
  1024. _st((function(){
  1025. return smalltalk.withContext(function($ctx2) {
  1026. chunk=_st(parser)._nextChunk();
  1027. chunk;
  1028. return _st(chunk)._isNil();
  1029. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
  1030. return smalltalk.withContext(function($ctx2) {
  1031. $1=_st(chunk)._isEmpty();
  1032. if(smalltalk.assert($1)){
  1033. lastEmpty=true;
  1034. return lastEmpty;
  1035. } else {
  1036. result=_st(_st($Compiler())._new())._evaluateExpression_(chunk);
  1037. result;
  1038. $2=lastEmpty;
  1039. if(smalltalk.assert($2)){
  1040. lastEmpty=false;
  1041. lastEmpty;
  1042. return _st(result)._scanFrom_(parser);
  1043. };
  1044. };
  1045. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  1046. return self}, function($ctx1) {$ctx1.fill(self,"import:",{aStream:aStream,chunk:chunk,result:result,parser:parser,lastEmpty:lastEmpty},smalltalk.Importer)})},
  1047. args: ["aStream"],
  1048. source: "import: aStream\x0a\x09| chunk result parser lastEmpty |\x0a\x09parser := ChunkParser on: aStream.\x0a\x09lastEmpty := false.\x0a\x09[chunk := parser nextChunk.\x0a\x09chunk isNil] whileFalse: [\x0a\x09\x09chunk isEmpty\x0a\x09\x09\x09ifTrue: [lastEmpty := true]\x0a\x09\x09\x09ifFalse: [\x0a\x09\x09\x09\x09result := Compiler new evaluateExpression: chunk.\x0a\x09\x09\x09\x09lastEmpty\x0a\x09\x09\x09\x09\x09\x09ifTrue: [\x0a\x09\x09\x09\x09\x09\x09\x09\x09\x09lastEmpty := false.\x0a\x09\x09\x09\x09\x09\x09\x09\x09\x09result scanFrom: parser]]]",
  1049. messageSends: ["on:", "whileFalse:", "ifTrue:ifFalse:", "evaluateExpression:", "new", "ifTrue:", "scanFrom:", "isEmpty", "nextChunk", "isNil"],
  1050. referencedClasses: ["ChunkParser", "Compiler"]
  1051. }),
  1052. smalltalk.Importer);
  1053. smalltalk.addClass('MethodCategory', smalltalk.Object, ['methods', 'name', 'theClass'], 'Importer-Exporter');
  1054. smalltalk.MethodCategory.comment="I am an abstraction for a method category in a class / metaclass.\x0a\x0aI know of my class, name and methods.\x0aI am used when exporting a package.";
  1055. smalltalk.addMethod(
  1056. smalltalk.method({
  1057. selector: "methods",
  1058. category: 'accessing',
  1059. fn: function (){
  1060. var self=this;
  1061. return smalltalk.withContext(function($ctx1) {
  1062. var $1;
  1063. $1=self["@methods"];
  1064. return $1;
  1065. }, function($ctx1) {$ctx1.fill(self,"methods",{},smalltalk.MethodCategory)})},
  1066. args: [],
  1067. source: "methods\x0a\x09^methods",
  1068. messageSends: [],
  1069. referencedClasses: []
  1070. }),
  1071. smalltalk.MethodCategory);
  1072. smalltalk.addMethod(
  1073. smalltalk.method({
  1074. selector: "methods:",
  1075. category: 'accessing',
  1076. fn: function (aCollection){
  1077. var self=this;
  1078. return smalltalk.withContext(function($ctx1) {
  1079. self["@methods"]=aCollection;
  1080. return self}, function($ctx1) {$ctx1.fill(self,"methods:",{aCollection:aCollection},smalltalk.MethodCategory)})},
  1081. args: ["aCollection"],
  1082. source: "methods: aCollection\x0a\x09methods := aCollection",
  1083. messageSends: [],
  1084. referencedClasses: []
  1085. }),
  1086. smalltalk.MethodCategory);
  1087. smalltalk.addMethod(
  1088. smalltalk.method({
  1089. selector: "name",
  1090. category: 'accessing',
  1091. fn: function (){
  1092. var self=this;
  1093. return smalltalk.withContext(function($ctx1) {
  1094. var $1;
  1095. $1=self["@name"];
  1096. return $1;
  1097. }, function($ctx1) {$ctx1.fill(self,"name",{},smalltalk.MethodCategory)})},
  1098. args: [],
  1099. source: "name\x0a\x09^name",
  1100. messageSends: [],
  1101. referencedClasses: []
  1102. }),
  1103. smalltalk.MethodCategory);
  1104. smalltalk.addMethod(
  1105. smalltalk.method({
  1106. selector: "name:",
  1107. category: 'accessing',
  1108. fn: function (aString){
  1109. var self=this;
  1110. return smalltalk.withContext(function($ctx1) {
  1111. self["@name"]=aString;
  1112. return self}, function($ctx1) {$ctx1.fill(self,"name:",{aString:aString},smalltalk.MethodCategory)})},
  1113. args: ["aString"],
  1114. source: "name: aString\x0a\x09name := aString",
  1115. messageSends: [],
  1116. referencedClasses: []
  1117. }),
  1118. smalltalk.MethodCategory);
  1119. smalltalk.addMethod(
  1120. smalltalk.method({
  1121. selector: "theClass",
  1122. category: 'accessing',
  1123. fn: function (){
  1124. var self=this;
  1125. return smalltalk.withContext(function($ctx1) {
  1126. var $1;
  1127. $1=self["@theClass"];
  1128. return $1;
  1129. }, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.MethodCategory)})},
  1130. args: [],
  1131. source: "theClass\x0a\x09^theClass",
  1132. messageSends: [],
  1133. referencedClasses: []
  1134. }),
  1135. smalltalk.MethodCategory);
  1136. smalltalk.addMethod(
  1137. smalltalk.method({
  1138. selector: "theClass:",
  1139. category: 'accessing',
  1140. fn: function (aClass){
  1141. var self=this;
  1142. return smalltalk.withContext(function($ctx1) {
  1143. self["@theClass"]=aClass;
  1144. return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass},smalltalk.MethodCategory)})},
  1145. args: ["aClass"],
  1146. source: "theClass: aClass\x0a\x09theClass := aClass",
  1147. messageSends: [],
  1148. referencedClasses: []
  1149. }),
  1150. smalltalk.MethodCategory);
  1151. smalltalk.addMethod(
  1152. smalltalk.method({
  1153. selector: "name:theClass:methods:",
  1154. category: 'not yet classified',
  1155. fn: function (aString,aClass,anArray){
  1156. var self=this;
  1157. return smalltalk.withContext(function($ctx1) {
  1158. var $2,$3,$1;
  1159. $2=self._new();
  1160. _st($2)._name_(aString);
  1161. _st($2)._theClass_(aClass);
  1162. _st($2)._methods_(anArray);
  1163. $3=_st($2)._yourself();
  1164. $1=$3;
  1165. return $1;
  1166. }, function($ctx1) {$ctx1.fill(self,"name:theClass:methods:",{aString:aString,aClass:aClass,anArray:anArray},smalltalk.MethodCategory.klass)})},
  1167. args: ["aString", "aClass", "anArray"],
  1168. source: "name: aString theClass: aClass methods: anArray\x0a\x09^self new\x0a\x09\x09name: aString;\x0a\x09\x09theClass: aClass;\x0a\x09\x09methods: anArray;\x0a\x09\x09yourself",
  1169. messageSends: ["name:", "new", "theClass:", "methods:", "yourself"],
  1170. referencedClasses: []
  1171. }),
  1172. smalltalk.MethodCategory.klass);
  1173. smalltalk.addClass('PackageHandler', smalltalk.InterfacingObject, [], 'Importer-Exporter');
  1174. smalltalk.PackageHandler.comment="I am responsible for handling package loading and committing.\x0a\x0aI should not be used directly. Instead, use the corresponding `Package` methods.";
  1175. smalltalk.addMethod(
  1176. smalltalk.method({
  1177. selector: "ajaxPutAt:data:",
  1178. category: 'private',
  1179. fn: function (aURL,aString){
  1180. var self=this;
  1181. return smalltalk.withContext(function($ctx1) {
  1182. self._ajax_(smalltalk.HashedCollection._from_(["url".__minus_gt(aURL),"type".__minus_gt("PUT"),"data".__minus_gt(aString),"contentType".__minus_gt("text/plain;charset=UTF-8"),"error".__minus_gt((function(xhr){
  1183. return smalltalk.withContext(function($ctx2) {
  1184. return self._error_(_st(_st(_st("Commiting ".__comma(aURL)).__comma(" failed with reason: \x22")).__comma(_st(xhr)._responseText())).__comma("\x22"));
  1185. }, function($ctx2) {$ctx2.fillBlock({xhr:xhr},$ctx1)})}))]));
  1186. return self}, function($ctx1) {$ctx1.fill(self,"ajaxPutAt:data:",{aURL:aURL,aString:aString},smalltalk.PackageHandler)})},
  1187. args: ["aURL", "aString"],
  1188. source: "ajaxPutAt: aURL data: aString\x0a\x09self\x0a\x09\x09ajax: #{\x0a\x09\x09\x09'url' -> aURL.\x0a\x09\x09\x09'type' -> 'PUT'.\x0a\x09\x09\x09'data' -> aString.\x0a\x09\x09\x09'contentType' -> 'text/plain;charset=UTF-8'.\x0a\x09\x09\x09'error' -> [ :xhr | self error: 'Commiting ' , aURL , ' failed with reason: \x22' , (xhr responseText) , '\x22'] }",
  1189. messageSends: ["ajax:", "->", "error:", ",", "responseText"],
  1190. referencedClasses: []
  1191. }),
  1192. smalltalk.PackageHandler);
  1193. smalltalk.addMethod(
  1194. smalltalk.method({
  1195. selector: "commit:",
  1196. category: 'committing',
  1197. fn: function (aPackage){
  1198. var self=this;
  1199. function $PluggableExporter(){return smalltalk.PluggableExporter||(typeof PluggableExporter=="undefined"?nil:PluggableExporter)}
  1200. function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
  1201. return smalltalk.withContext(function($ctx1) {
  1202. _st(self._commitChannels())._do_displayingProgress_((function(commitStrategyFactory){
  1203. var fileContents,commitStrategy;
  1204. return smalltalk.withContext(function($ctx2) {
  1205. commitStrategy=_st(commitStrategyFactory)._value_(aPackage);
  1206. commitStrategy;
  1207. fileContents=_st($String())._streamContents_((function(stream){
  1208. return smalltalk.withContext(function($ctx3) {
  1209. return _st(_st($PluggableExporter())._forRecipe_(_st(commitStrategy)._key()))._exportPackage_on_(aPackage,stream);
  1210. }, function($ctx3) {$ctx3.fillBlock({stream:stream},$ctx2)})}));
  1211. fileContents;
  1212. return self._ajaxPutAt_data_(_st(commitStrategy)._value(),fileContents);
  1213. }, function($ctx2) {$ctx2.fillBlock({commitStrategyFactory:commitStrategyFactory,fileContents:fileContents,commitStrategy:commitStrategy},$ctx1)})}),"Committing package ".__comma(_st(aPackage)._name()));
  1214. return self}, function($ctx1) {$ctx1.fill(self,"commit:",{aPackage:aPackage},smalltalk.PackageHandler)})},
  1215. args: ["aPackage"],
  1216. source: "commit: aPackage\x0a\x09self commitChannels\x0a\x09\x09do: [ :commitStrategyFactory || fileContents commitStrategy |\x0a\x09\x09\x09commitStrategy := commitStrategyFactory value: aPackage.\x0a\x09\x09\x09fileContents := String streamContents: [ :stream |\x0a\x09\x09\x09\x09(PluggableExporter forRecipe: commitStrategy key) exportPackage: aPackage on: stream ].\x0a\x09\x09\x09self ajaxPutAt: commitStrategy value data: fileContents ]\x0a\x09\x09displayingProgress: 'Committing package ', aPackage name",
  1217. messageSends: ["do:displayingProgress:", "value:", "streamContents:", "exportPackage:on:", "forRecipe:", "key", "ajaxPutAt:data:", "value", ",", "name", "commitChannels"],
  1218. referencedClasses: ["PluggableExporter", "String"]
  1219. }),
  1220. smalltalk.PackageHandler);
  1221. smalltalk.addMethod(
  1222. smalltalk.method({
  1223. selector: "commitChannels",
  1224. category: 'committing',
  1225. fn: function (){
  1226. var self=this;
  1227. return smalltalk.withContext(function($ctx1) {
  1228. self._subclassResponsibility();
  1229. return self}, function($ctx1) {$ctx1.fill(self,"commitChannels",{},smalltalk.PackageHandler)})},
  1230. args: [],
  1231. source: "commitChannels\x0a\x09self subclassResponsibility",
  1232. messageSends: ["subclassResponsibility"],
  1233. referencedClasses: []
  1234. }),
  1235. smalltalk.PackageHandler);
  1236. smalltalk.PackageHandler.klass.iVarNames = ['registry'];
  1237. smalltalk.addMethod(
  1238. smalltalk.method({
  1239. selector: "classRegisteredFor:",
  1240. category: 'accessing',
  1241. fn: function (aString){
  1242. var self=this;
  1243. return smalltalk.withContext(function($ctx1) {
  1244. var $1;
  1245. $1=_st(self["@registry"])._at_(aString);
  1246. return $1;
  1247. }, function($ctx1) {$ctx1.fill(self,"classRegisteredFor:",{aString:aString},smalltalk.PackageHandler.klass)})},
  1248. args: ["aString"],
  1249. source: "classRegisteredFor: aString\x0a\x09^ registry at: aString",
  1250. messageSends: ["at:"],
  1251. referencedClasses: []
  1252. }),
  1253. smalltalk.PackageHandler.klass);
  1254. smalltalk.addMethod(
  1255. smalltalk.method({
  1256. selector: "for:",
  1257. category: 'accessing',
  1258. fn: function (aString){
  1259. var self=this;
  1260. return smalltalk.withContext(function($ctx1) {
  1261. var $1;
  1262. $1=_st(self._classRegisteredFor_(aString))._new();
  1263. return $1;
  1264. }, function($ctx1) {$ctx1.fill(self,"for:",{aString:aString},smalltalk.PackageHandler.klass)})},
  1265. args: ["aString"],
  1266. source: "for: aString\x0a\x09^ (self classRegisteredFor: aString) new",
  1267. messageSends: ["new", "classRegisteredFor:"],
  1268. referencedClasses: []
  1269. }),
  1270. smalltalk.PackageHandler.klass);
  1271. smalltalk.addMethod(
  1272. smalltalk.method({
  1273. selector: "initialize",
  1274. category: 'initialization',
  1275. fn: function (){
  1276. var self=this;
  1277. return smalltalk.withContext(function($ctx1) {
  1278. smalltalk.PackageHandler.klass.superclass.fn.prototype._initialize.apply(_st(self), []);
  1279. self["@registry"]=smalltalk.HashedCollection._from_([]);
  1280. return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.PackageHandler.klass)})},
  1281. args: [],
  1282. source: "initialize\x0a\x09super initialize.\x0a\x09registry := #{}",
  1283. messageSends: ["initialize"],
  1284. referencedClasses: []
  1285. }),
  1286. smalltalk.PackageHandler.klass);
  1287. smalltalk.addMethod(
  1288. smalltalk.method({
  1289. selector: "register:for:",
  1290. category: 'registry',
  1291. fn: function (aClass,aString){
  1292. var self=this;
  1293. return smalltalk.withContext(function($ctx1) {
  1294. _st(self["@registry"])._at_put_(aString,aClass);
  1295. return self}, function($ctx1) {$ctx1.fill(self,"register:for:",{aClass:aClass,aString:aString},smalltalk.PackageHandler.klass)})},
  1296. args: ["aClass", "aString"],
  1297. source: "register: aClass for: aString\x0a\x09registry at: aString put: aClass",
  1298. messageSends: ["at:put:"],
  1299. referencedClasses: []
  1300. }),
  1301. smalltalk.PackageHandler.klass);
  1302. smalltalk.addMethod(
  1303. smalltalk.method({
  1304. selector: "registerFor:",
  1305. category: 'registry',
  1306. fn: function (aString){
  1307. var self=this;
  1308. function $PackageHandler(){return smalltalk.PackageHandler||(typeof PackageHandler=="undefined"?nil:PackageHandler)}
  1309. return smalltalk.withContext(function($ctx1) {
  1310. _st($PackageHandler())._register_for_(self,aString);
  1311. return self}, function($ctx1) {$ctx1.fill(self,"registerFor:",{aString:aString},smalltalk.PackageHandler.klass)})},
  1312. args: ["aString"],
  1313. source: "registerFor: aString\x0a\x09PackageHandler register: self for: aString",
  1314. messageSends: ["register:for:"],
  1315. referencedClasses: ["PackageHandler"]
  1316. }),
  1317. smalltalk.PackageHandler.klass);
  1318. smalltalk.addClass('AmdPackageHandler', smalltalk.PackageHandler, [], 'Importer-Exporter');
  1319. smalltalk.AmdPackageHandler.comment="I am responsible for handling package loading and committing.\x0a\x0aI should not be used directly. Instead, use the corresponding `Package` methods.";
  1320. smalltalk.addMethod(
  1321. smalltalk.method({
  1322. selector: "commitChannels",
  1323. category: 'committing',
  1324. fn: function (){
  1325. var self=this;
  1326. function $Exporter(){return smalltalk.Exporter||(typeof Exporter=="undefined"?nil:Exporter)}
  1327. function $StrippedExporter(){return smalltalk.StrippedExporter||(typeof StrippedExporter=="undefined"?nil:StrippedExporter)}
  1328. function $ChunkExporter(){return smalltalk.ChunkExporter||(typeof ChunkExporter=="undefined"?nil:ChunkExporter)}
  1329. return smalltalk.withContext(function($ctx1) {
  1330. var $1;
  1331. $1=[(function(pkg){
  1332. return smalltalk.withContext(function($ctx2) {
  1333. return _st(_st(_st($Exporter())._default())._amdRecipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathJs()).__comma("/")).__comma(_st(pkg)._name())).__comma(".js"));
  1334. }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})}),(function(pkg){
  1335. return smalltalk.withContext(function($ctx2) {
  1336. return _st(_st(_st($StrippedExporter())._default())._amdRecipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathJs()).__comma("/")).__comma(_st(pkg)._name())).__comma(".deploy.js"));
  1337. }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})}),(function(pkg){
  1338. return smalltalk.withContext(function($ctx2) {
  1339. return _st(_st(_st($ChunkExporter())._default())._recipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathSt()).__comma("/")).__comma(_st(pkg)._name())).__comma(".st"));
  1340. }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})})];
  1341. return $1;
  1342. }, function($ctx1) {$ctx1.fill(self,"commitChannels",{},smalltalk.AmdPackageHandler)})},
  1343. args: [],
  1344. source: "commitChannels\x0a\x09^{ \x0a\x09\x09[ :pkg | Exporter default amdRecipe -> (pkg commitPathJs, '/', pkg name, '.js') ].\x0a\x09\x09[ :pkg | StrippedExporter default amdRecipe -> (pkg commitPathJs, '/', pkg name, '.deploy.js') ].\x0a\x09\x09[ :pkg | ChunkExporter default recipe -> (pkg commitPathSt, '/', pkg name, '.st') ]\x0a\x09}",
  1345. messageSends: ["->", ",", "name", "commitPathJs", "amdRecipe", "default", "commitPathSt", "recipe"],
  1346. referencedClasses: ["Exporter", "StrippedExporter", "ChunkExporter"]
  1347. }),
  1348. smalltalk.AmdPackageHandler);
  1349. smalltalk.addMethod(
  1350. smalltalk.method({
  1351. selector: "commitPathJsFor:",
  1352. category: 'committing',
  1353. fn: function (aPackage){
  1354. var self=this;
  1355. return smalltalk.withContext(function($ctx1) {
  1356. var $1;
  1357. $1=self._toUrl_(self._namespaceFor_(aPackage));
  1358. return $1;
  1359. }, function($ctx1) {$ctx1.fill(self,"commitPathJsFor:",{aPackage:aPackage},smalltalk.AmdPackageHandler)})},
  1360. args: ["aPackage"],
  1361. source: "commitPathJsFor: aPackage\x0a\x09^self toUrl: (self namespaceFor: aPackage)",
  1362. messageSends: ["toUrl:", "namespaceFor:"],
  1363. referencedClasses: []
  1364. }),
  1365. smalltalk.AmdPackageHandler);
  1366. smalltalk.addMethod(
  1367. smalltalk.method({
  1368. selector: "commitPathStFor:",
  1369. category: 'committing',
  1370. fn: function (aPackage){
  1371. var self=this;
  1372. return smalltalk.withContext(function($ctx1) {
  1373. var $1;
  1374. $1=self._toUrl_(_st(self._namespaceFor_(aPackage)).__comma("/_source"));
  1375. return $1;
  1376. }, function($ctx1) {$ctx1.fill(self,"commitPathStFor:",{aPackage:aPackage},smalltalk.AmdPackageHandler)})},
  1377. args: ["aPackage"],
  1378. source: "commitPathStFor: aPackage\x0a\x09\x22if _source is not mapped, .st commit will likely fail\x22\x0a\x09^self toUrl: (self namespaceFor: aPackage), '/_source'.",
  1379. messageSends: ["toUrl:", ",", "namespaceFor:"],
  1380. referencedClasses: []
  1381. }),
  1382. smalltalk.AmdPackageHandler);
  1383. smalltalk.addMethod(
  1384. smalltalk.method({
  1385. selector: "namespaceFor:",
  1386. category: 'committing',
  1387. fn: function (aPackage){
  1388. var self=this;
  1389. return smalltalk.withContext(function($ctx1) {
  1390. var $2,$3,$4,$1;
  1391. $2=_st(aPackage)._amdNamespace();
  1392. if(($receiver = $2) == nil || $receiver == undefined){
  1393. $3=aPackage;
  1394. _st($3)._amdNamespace_(_st(self._class())._defaultNamespace());
  1395. $4=_st($3)._amdNamespace();
  1396. $1=$4;
  1397. } else {
  1398. $1=$2;
  1399. };
  1400. return $1;
  1401. }, function($ctx1) {$ctx1.fill(self,"namespaceFor:",{aPackage:aPackage},smalltalk.AmdPackageHandler)})},
  1402. args: ["aPackage"],
  1403. source: "namespaceFor: aPackage\x0a\x09^ aPackage amdNamespace\x0a\x09\x09ifNil: [ aPackage amdNamespace: self class defaultNamespace; amdNamespace ]",
  1404. messageSends: ["ifNil:", "amdNamespace:", "defaultNamespace", "class", "amdNamespace"],
  1405. referencedClasses: []
  1406. }),
  1407. smalltalk.AmdPackageHandler);
  1408. smalltalk.addMethod(
  1409. smalltalk.method({
  1410. selector: "toUrl:",
  1411. category: 'private',
  1412. fn: function (aString){
  1413. var self=this;
  1414. function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
  1415. return smalltalk.withContext(function($ctx1) {
  1416. var $2,$1;
  1417. $2=_st(_st($Smalltalk())._current())._amdRequire();
  1418. if(($receiver = $2) == nil || $receiver == undefined){
  1419. $1=self._error_("AMD loader not present");
  1420. } else {
  1421. var require;
  1422. require=$receiver;
  1423. $1=_st(_st(require)._basicAt_("toUrl"))._value_(aString);
  1424. };
  1425. return $1;
  1426. }, function($ctx1) {$ctx1.fill(self,"toUrl:",{aString:aString},smalltalk.AmdPackageHandler)})},
  1427. args: ["aString"],
  1428. source: "toUrl: aString\x0a\x09^ Smalltalk current amdRequire\x0a\x09\x09ifNil: [ self error: 'AMD loader not present' ]\x0a\x09\x09ifNotNil: [ :require | (require basicAt: 'toUrl') value: aString ]",
  1429. messageSends: ["ifNil:ifNotNil:", "error:", "value:", "basicAt:", "amdRequire", "current"],
  1430. referencedClasses: ["Smalltalk"]
  1431. }),
  1432. smalltalk.AmdPackageHandler);
  1433. smalltalk.addMethod(
  1434. smalltalk.method({
  1435. selector: "defaultNamespace",
  1436. category: 'commit paths',
  1437. fn: function (){
  1438. var self=this;
  1439. function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
  1440. return smalltalk.withContext(function($ctx1) {
  1441. var $1;
  1442. $1=_st(_st($Smalltalk())._current())._defaultAMDNamespace();
  1443. return $1;
  1444. }, function($ctx1) {$ctx1.fill(self,"defaultNamespace",{},smalltalk.AmdPackageHandler.klass)})},
  1445. args: [],
  1446. source: "defaultNamespace\x0a\x09^ Smalltalk current defaultAMDNamespace",
  1447. messageSends: ["defaultAMDNamespace", "current"],
  1448. referencedClasses: ["Smalltalk"]
  1449. }),
  1450. smalltalk.AmdPackageHandler.klass);
  1451. smalltalk.addMethod(
  1452. smalltalk.method({
  1453. selector: "defaultNamespace:",
  1454. category: 'commit paths',
  1455. fn: function (aString){
  1456. var self=this;
  1457. function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
  1458. return smalltalk.withContext(function($ctx1) {
  1459. _st(_st($Smalltalk())._current())._defaultAMDNamespace_(aString);
  1460. return self}, function($ctx1) {$ctx1.fill(self,"defaultNamespace:",{aString:aString},smalltalk.AmdPackageHandler.klass)})},
  1461. args: ["aString"],
  1462. source: "defaultNamespace: aString\x0a\x09Smalltalk current defaultAMDNamespace: aString",
  1463. messageSends: ["defaultAMDNamespace:", "current"],
  1464. referencedClasses: ["Smalltalk"]
  1465. }),
  1466. smalltalk.AmdPackageHandler.klass);
  1467. smalltalk.addMethod(
  1468. smalltalk.method({
  1469. selector: "initialize",
  1470. category: 'initialization',
  1471. fn: function (){
  1472. var self=this;
  1473. return smalltalk.withContext(function($ctx1) {
  1474. smalltalk.AmdPackageHandler.klass.superclass.fn.prototype._initialize.apply(_st(self), []);
  1475. self._registerFor_("amd");
  1476. return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.AmdPackageHandler.klass)})},
  1477. args: [],
  1478. source: "initialize\x0a\x09super initialize.\x0a\x09self registerFor: 'amd'",
  1479. messageSends: ["initialize", "registerFor:"],
  1480. referencedClasses: []
  1481. }),
  1482. smalltalk.AmdPackageHandler.klass);
  1483. smalltalk.addMethod(
  1484. smalltalk.method({
  1485. selector: "resetCommitPaths",
  1486. category: 'commit paths',
  1487. fn: function (){
  1488. var self=this;
  1489. return smalltalk.withContext(function($ctx1) {
  1490. self._defaultNamespace_(nil);
  1491. return self}, function($ctx1) {$ctx1.fill(self,"resetCommitPaths",{},smalltalk.AmdPackageHandler.klass)})},
  1492. args: [],
  1493. source: "resetCommitPaths\x0a\x09self defaultNamespace: nil",
  1494. messageSends: ["defaultNamespace:"],
  1495. referencedClasses: []
  1496. }),
  1497. smalltalk.AmdPackageHandler.klass);
  1498. smalltalk.addClass('LegacyPackageHandler', smalltalk.PackageHandler, [], 'Importer-Exporter');
  1499. smalltalk.LegacyPackageHandler.comment="I am responsible for handling package loading and committing.\x0a\x0aI should not be used directly. Instead, use the corresponding `Package` methods.";
  1500. smalltalk.addMethod(
  1501. smalltalk.method({
  1502. selector: "commitChannels",
  1503. category: 'committing',
  1504. fn: function (){
  1505. var self=this;
  1506. function $Exporter(){return smalltalk.Exporter||(typeof Exporter=="undefined"?nil:Exporter)}
  1507. function $StrippedExporter(){return smalltalk.StrippedExporter||(typeof StrippedExporter=="undefined"?nil:StrippedExporter)}
  1508. function $ChunkExporter(){return smalltalk.ChunkExporter||(typeof ChunkExporter=="undefined"?nil:ChunkExporter)}
  1509. return smalltalk.withContext(function($ctx1) {
  1510. var $1;
  1511. $1=[(function(pkg){
  1512. return smalltalk.withContext(function($ctx2) {
  1513. return _st(_st(_st($Exporter())._default())._recipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathJs()).__comma("/")).__comma(_st(pkg)._name())).__comma(".js"));
  1514. }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})}),(function(pkg){
  1515. return smalltalk.withContext(function($ctx2) {
  1516. return _st(_st(_st($StrippedExporter())._default())._recipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathJs()).__comma("/")).__comma(_st(pkg)._name())).__comma(".deploy.js"));
  1517. }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})}),(function(pkg){
  1518. return smalltalk.withContext(function($ctx2) {
  1519. return _st(_st(_st($ChunkExporter())._default())._recipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathSt()).__comma("/")).__comma(_st(pkg)._name())).__comma(".st"));
  1520. }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})})];
  1521. return $1;
  1522. }, function($ctx1) {$ctx1.fill(self,"commitChannels",{},smalltalk.LegacyPackageHandler)})},
  1523. args: [],
  1524. source: "commitChannels\x0a\x09^{ \x0a\x09\x09[ :pkg | Exporter default recipe -> (pkg commitPathJs, '/', pkg name, '.js') ].\x0a\x09\x09[ :pkg | StrippedExporter default recipe -> (pkg commitPathJs, '/', pkg name, '.deploy.js') ].\x0a\x09\x09[ :pkg | ChunkExporter default recipe -> (pkg commitPathSt, '/', pkg name, '.st') ]\x0a\x09}",
  1525. messageSends: ["->", ",", "name", "commitPathJs", "recipe", "default", "commitPathSt"],
  1526. referencedClasses: ["Exporter", "StrippedExporter", "ChunkExporter"]
  1527. }),
  1528. smalltalk.LegacyPackageHandler);
  1529. smalltalk.addMethod(
  1530. smalltalk.method({
  1531. selector: "commitPathJsFor:",
  1532. category: 'committing',
  1533. fn: function (aPackage){
  1534. var self=this;
  1535. return smalltalk.withContext(function($ctx1) {
  1536. var $1;
  1537. $1=_st(self._class())._defaultCommitPathJs();
  1538. return $1;
  1539. }, function($ctx1) {$ctx1.fill(self,"commitPathJsFor:",{aPackage:aPackage},smalltalk.LegacyPackageHandler)})},
  1540. args: ["aPackage"],
  1541. source: "commitPathJsFor: aPackage\x0a\x09^self class defaultCommitPathJs",
  1542. messageSends: ["defaultCommitPathJs", "class"],
  1543. referencedClasses: []
  1544. }),
  1545. smalltalk.LegacyPackageHandler);
  1546. smalltalk.addMethod(
  1547. smalltalk.method({
  1548. selector: "commitPathStFor:",
  1549. category: 'committing',
  1550. fn: function (aPackage){
  1551. var self=this;
  1552. return smalltalk.withContext(function($ctx1) {
  1553. var $1;
  1554. $1=_st(self._class())._defaultCommitPathSt();
  1555. return $1;
  1556. }, function($ctx1) {$ctx1.fill(self,"commitPathStFor:",{aPackage:aPackage},smalltalk.LegacyPackageHandler)})},
  1557. args: ["aPackage"],
  1558. source: "commitPathStFor: aPackage\x0a\x09^self class defaultCommitPathSt",
  1559. messageSends: ["defaultCommitPathSt", "class"],
  1560. referencedClasses: []
  1561. }),
  1562. smalltalk.LegacyPackageHandler);
  1563. smalltalk.addMethod(
  1564. smalltalk.method({
  1565. selector: "loadPackage:prefix:",
  1566. category: 'loading',
  1567. fn: function (packageName,aString){
  1568. var self=this;
  1569. var url;
  1570. return smalltalk.withContext(function($ctx1) {
  1571. var $1;
  1572. url=_st(_st(_st("/".__comma(aString)).__comma("/js/")).__comma(packageName)).__comma(".js");
  1573. self._ajax_(smalltalk.HashedCollection._from_(["url".__minus_gt(url),"type".__minus_gt("GET"),"dataType".__minus_gt("script"),"complete".__minus_gt((function(jqXHR,textStatus){
  1574. return smalltalk.withContext(function($ctx2) {
  1575. $1=_st(_st(jqXHR)._readyState()).__eq((4));
  1576. if(smalltalk.assert($1)){
  1577. return self._setupPackageNamed_prefix_(packageName,aString);
  1578. };
  1579. }, function($ctx2) {$ctx2.fillBlock({jqXHR:jqXHR,textStatus:textStatus},$ctx1)})})),"error".__minus_gt((function(){
  1580. return smalltalk.withContext(function($ctx2) {
  1581. return self._alert_("Could not load package at: ".__comma(url));
  1582. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))]));
  1583. return self}, function($ctx1) {$ctx1.fill(self,"loadPackage:prefix:",{packageName:packageName,aString:aString,url:url},smalltalk.LegacyPackageHandler)})},
  1584. args: ["packageName", "aString"],
  1585. source: "loadPackage: packageName prefix: aString\x0a\x09| url |\x0a\x09url := '/', aString, '/js/', packageName, '.js'.\x0a\x09self\x0a\x09\x09ajax: #{\x0a\x09\x09\x09'url' -> url.\x0a\x09\x09\x09'type' -> 'GET'.\x0a\x09\x09\x09'dataType' -> 'script'.\x0a\x09\x09\x09'complete' -> [ :jqXHR :textStatus |\x0a\x09\x09\x09\x09jqXHR readyState = 4\x0a\x09\x09\x09\x09\x09ifTrue: [ self setupPackageNamed: packageName prefix: aString ] ].\x0a\x09\x09\x09'error' -> [ self alert: 'Could not load package at: ', url ]\x0a\x09\x09}",
  1586. messageSends: [",", "ajax:", "->", "ifTrue:", "setupPackageNamed:prefix:", "=", "readyState", "alert:"],
  1587. referencedClasses: []
  1588. }),
  1589. smalltalk.LegacyPackageHandler);
  1590. smalltalk.addMethod(
  1591. smalltalk.method({
  1592. selector: "loadPackages:prefix:",
  1593. category: 'loading',
  1594. fn: function (aCollection,aString){
  1595. var self=this;
  1596. return smalltalk.withContext(function($ctx1) {
  1597. _st(aCollection)._do_((function(each){
  1598. return smalltalk.withContext(function($ctx2) {
  1599. return self._loadPackage_prefix_(each,aString);
  1600. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  1601. return self}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.LegacyPackageHandler)})},
  1602. args: ["aCollection", "aString"],
  1603. source: "loadPackages: aCollection prefix: aString\x0a\x09aCollection do: [ :each |\x0a\x09\x09self loadPackage: each prefix: aString ]",
  1604. messageSends: ["do:", "loadPackage:prefix:"],
  1605. referencedClasses: []
  1606. }),
  1607. smalltalk.LegacyPackageHandler);
  1608. smalltalk.addMethod(
  1609. smalltalk.method({
  1610. selector: "setupPackageNamed:prefix:",
  1611. category: 'private',
  1612. fn: function (packageName,aString){
  1613. var self=this;
  1614. function $Package(){return smalltalk.Package||(typeof Package=="undefined"?nil:Package)}
  1615. return smalltalk.withContext(function($ctx1) {
  1616. var $1,$2;
  1617. $1=_st($Package())._named_(packageName);
  1618. _st($1)._setupClasses();
  1619. _st($1)._commitPathJs_(_st("/".__comma(aString)).__comma("/js"));
  1620. $2=_st($1)._commitPathSt_(_st("/".__comma(aString)).__comma("/st"));
  1621. return self}, function($ctx1) {$ctx1.fill(self,"setupPackageNamed:prefix:",{packageName:packageName,aString:aString},smalltalk.LegacyPackageHandler)})},
  1622. args: ["packageName", "aString"],
  1623. source: "setupPackageNamed: packageName prefix: aString\x0a\x0a\x09(Package named: packageName)\x0a\x09\x09setupClasses;\x0a\x09\x09commitPathJs: '/', aString, '/js';\x0a\x09\x09commitPathSt: '/', aString, '/st'",
  1624. messageSends: ["setupClasses", "named:", "commitPathJs:", ",", "commitPathSt:"],
  1625. referencedClasses: ["Package"]
  1626. }),
  1627. smalltalk.LegacyPackageHandler);
  1628. smalltalk.LegacyPackageHandler.klass.iVarNames = ['defaultCommitPathJs','defaultCommitPathSt'];
  1629. smalltalk.addMethod(
  1630. smalltalk.method({
  1631. selector: "commitPathsFromLoader",
  1632. category: 'commit paths',
  1633. fn: function (){
  1634. var self=this;
  1635. return smalltalk.withContext(function($ctx1) {
  1636. var commitPath = typeof amber !== 'undefined' && amber.commitPath;
  1637. if (!commitPath) return;
  1638. if (commitPath.js) self._defaultCommitPathJs_(commitPath.js);
  1639. if (commitPath.st) self._defaultCommitPathSt_(commitPath.st);
  1640. ;
  1641. return self}, function($ctx1) {$ctx1.fill(self,"commitPathsFromLoader",{},smalltalk.LegacyPackageHandler.klass)})},
  1642. args: [],
  1643. source: "commitPathsFromLoader\x0a\x09<\x0a\x09\x09var commitPath = typeof amber !== 'undefined' && amber.commitPath;\x0a\x09\x09if (!commitPath) return;\x0a\x09\x09if (commitPath.js) self._defaultCommitPathJs_(commitPath.js);\x0a\x09\x09if (commitPath.st) self._defaultCommitPathSt_(commitPath.st);\x0a\x09>",
  1644. messageSends: [],
  1645. referencedClasses: []
  1646. }),
  1647. smalltalk.LegacyPackageHandler.klass);
  1648. smalltalk.addMethod(
  1649. smalltalk.method({
  1650. selector: "defaultCommitPathJs",
  1651. category: 'commit paths',
  1652. fn: function (){
  1653. var self=this;
  1654. return smalltalk.withContext(function($ctx1) {
  1655. var $2,$1;
  1656. $2=self["@defaultCommitPathJs"];
  1657. if(($receiver = $2) == nil || $receiver == undefined){
  1658. self["@defaultCommitPathJs"]="js";
  1659. $1=self["@defaultCommitPathJs"];
  1660. } else {
  1661. $1=$2;
  1662. };
  1663. return $1;
  1664. }, function($ctx1) {$ctx1.fill(self,"defaultCommitPathJs",{},smalltalk.LegacyPackageHandler.klass)})},
  1665. args: [],
  1666. source: "defaultCommitPathJs\x0a\x09^ defaultCommitPathJs ifNil: [ defaultCommitPathJs := 'js']",
  1667. messageSends: ["ifNil:"],
  1668. referencedClasses: []
  1669. }),
  1670. smalltalk.LegacyPackageHandler.klass);
  1671. smalltalk.addMethod(
  1672. smalltalk.method({
  1673. selector: "defaultCommitPathJs:",
  1674. category: 'commit paths',
  1675. fn: function (aString){
  1676. var self=this;
  1677. return smalltalk.withContext(function($ctx1) {
  1678. self["@defaultCommitPathJs"]=aString;
  1679. return self}, function($ctx1) {$ctx1.fill(self,"defaultCommitPathJs:",{aString:aString},smalltalk.LegacyPackageHandler.klass)})},
  1680. args: ["aString"],
  1681. source: "defaultCommitPathJs: aString\x0a\x09defaultCommitPathJs := aString",
  1682. messageSends: [],
  1683. referencedClasses: []
  1684. }),
  1685. smalltalk.LegacyPackageHandler.klass);
  1686. smalltalk.addMethod(
  1687. smalltalk.method({
  1688. selector: "defaultCommitPathSt",
  1689. category: 'commit paths',
  1690. fn: function (){
  1691. var self=this;
  1692. return smalltalk.withContext(function($ctx1) {
  1693. var $2,$1;
  1694. $2=self["@defaultCommitPathSt"];
  1695. if(($receiver = $2) == nil || $receiver == undefined){
  1696. self["@defaultCommitPathSt"]="st";
  1697. $1=self["@defaultCommitPathSt"];
  1698. } else {
  1699. $1=$2;
  1700. };
  1701. return $1;
  1702. }, function($ctx1) {$ctx1.fill(self,"defaultCommitPathSt",{},smalltalk.LegacyPackageHandler.klass)})},
  1703. args: [],
  1704. source: "defaultCommitPathSt\x0a\x09^ defaultCommitPathSt ifNil: [ defaultCommitPathSt := 'st']",
  1705. messageSends: ["ifNil:"],
  1706. referencedClasses: []
  1707. }),
  1708. smalltalk.LegacyPackageHandler.klass);
  1709. smalltalk.addMethod(
  1710. smalltalk.method({
  1711. selector: "defaultCommitPathSt:",
  1712. category: 'commit paths',
  1713. fn: function (aString){
  1714. var self=this;
  1715. return smalltalk.withContext(function($ctx1) {
  1716. self["@defaultCommitPathSt"]=aString;
  1717. return self}, function($ctx1) {$ctx1.fill(self,"defaultCommitPathSt:",{aString:aString},smalltalk.LegacyPackageHandler.klass)})},
  1718. args: ["aString"],
  1719. source: "defaultCommitPathSt: aString\x0a\x09defaultCommitPathSt := aString",
  1720. messageSends: [],
  1721. referencedClasses: []
  1722. }),
  1723. smalltalk.LegacyPackageHandler.klass);
  1724. smalltalk.addMethod(
  1725. smalltalk.method({
  1726. selector: "initialize",
  1727. category: 'initialization',
  1728. fn: function (){
  1729. var self=this;
  1730. return smalltalk.withContext(function($ctx1) {
  1731. smalltalk.LegacyPackageHandler.klass.superclass.fn.prototype._initialize.apply(_st(self), []);
  1732. self._registerFor_("unknown");
  1733. self._commitPathsFromLoader();
  1734. return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.LegacyPackageHandler.klass)})},
  1735. args: [],
  1736. source: "initialize\x0a\x09super initialize.\x0a\x09self registerFor: 'unknown'.\x0a\x09self commitPathsFromLoader",
  1737. messageSends: ["initialize", "registerFor:", "commitPathsFromLoader"],
  1738. referencedClasses: []
  1739. }),
  1740. smalltalk.LegacyPackageHandler.klass);
  1741. smalltalk.addMethod(
  1742. smalltalk.method({
  1743. selector: "loadPackages:prefix:",
  1744. category: 'loading',
  1745. fn: function (aCollection,aString){
  1746. var self=this;
  1747. return smalltalk.withContext(function($ctx1) {
  1748. var $1;
  1749. $1=_st(self._new())._loadPackages_prefix_(aCollection,aString);
  1750. return $1;
  1751. }, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.LegacyPackageHandler.klass)})},
  1752. args: ["aCollection", "aString"],
  1753. source: "loadPackages: aCollection prefix: aString\x0a\x09^ self new loadPackages: aCollection prefix: aString",
  1754. messageSends: ["loadPackages:prefix:", "new"],
  1755. referencedClasses: []
  1756. }),
  1757. smalltalk.LegacyPackageHandler.klass);
  1758. smalltalk.addMethod(
  1759. smalltalk.method({
  1760. selector: "resetCommitPaths",
  1761. category: 'commit paths',
  1762. fn: function (){
  1763. var self=this;
  1764. return smalltalk.withContext(function($ctx1) {
  1765. self["@defaultCommitPathJs"]=nil;
  1766. self["@defaultCommitPathSt"]=nil;
  1767. return self}, function($ctx1) {$ctx1.fill(self,"resetCommitPaths",{},smalltalk.LegacyPackageHandler.klass)})},
  1768. args: [],
  1769. source: "resetCommitPaths\x0a\x09defaultCommitPathJs := nil.\x0a\x09defaultCommitPathSt := nil",
  1770. messageSends: [],
  1771. referencedClasses: []
  1772. }),
  1773. smalltalk.LegacyPackageHandler.klass);
  1774. smalltalk.addClass('PluggableExporter', smalltalk.Object, ['recipe'], 'Importer-Exporter');
  1775. smalltalk.PluggableExporter.comment="I am an engine for exporting structured data on a Stream.\x0a\x0aMy instances are created using\x0a PluggableExporter forRecipe: aRecipe,\x0awhere recipe is structured description of the exporting algorithm (see `ExportRecipeInterpreter`).\x0a\x0aThe actual exporting is done by interpreting the recipe using a `RecipeInterpreter`.\x0a\x0a\x0aI am used to export amber packages, so I have a convenience method\x0a`exportPackage: aPackage on: aStream`\x0awhich exports `aPackage` using the `recipe`\x0a(it is otherwise no special, so it may be renamed to export:on:)";
  1776. smalltalk.addMethod(
  1777. smalltalk.method({
  1778. selector: "exportAllPackages",
  1779. category: 'fileOut',
  1780. fn: function (){
  1781. var self=this;
  1782. function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
  1783. function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
  1784. return smalltalk.withContext(function($ctx1) {
  1785. var $1;
  1786. $1=_st($String())._streamContents_((function(stream){
  1787. return smalltalk.withContext(function($ctx2) {
  1788. return _st(_st(_st($Smalltalk())._current())._packages())._do_((function(pkg){
  1789. return smalltalk.withContext(function($ctx3) {
  1790. return self._exportPackage_on_(pkg,stream);
  1791. }, function($ctx3) {$ctx3.fillBlock({pkg:pkg},$ctx2)})}));
  1792. }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
  1793. return $1;
  1794. }, function($ctx1) {$ctx1.fill(self,"exportAllPackages",{},smalltalk.PluggableExporter)})},
  1795. args: [],
  1796. source: "exportAllPackages\x0a\x09\x22Export all packages in the system.\x22\x0a\x0a\x09^String streamContents: [:stream |\x0a\x09\x09Smalltalk current packages do: [:pkg |\x0a\x09\x09self exportPackage: pkg on: stream]]",
  1797. messageSends: ["streamContents:", "do:", "exportPackage:on:", "packages", "current"],
  1798. referencedClasses: ["Smalltalk", "String"]
  1799. }),
  1800. smalltalk.PluggableExporter);
  1801. smalltalk.addMethod(
  1802. smalltalk.method({
  1803. selector: "exportPackage:on:",
  1804. category: 'fileOut',
  1805. fn: function (aPackage,aStream){
  1806. var self=this;
  1807. return smalltalk.withContext(function($ctx1) {
  1808. _st(self._interpreter())._interpret_for_on_(self._recipe(),aPackage,aStream);
  1809. return self}, function($ctx1) {$ctx1.fill(self,"exportPackage:on:",{aPackage:aPackage,aStream:aStream},smalltalk.PluggableExporter)})},
  1810. args: ["aPackage", "aStream"],
  1811. source: "exportPackage: aPackage on: aStream\x0a\x09self interpreter interpret: self recipe for: aPackage on: aStream",
  1812. messageSends: ["interpret:for:on:", "recipe", "interpreter"],
  1813. referencedClasses: []
  1814. }),
  1815. smalltalk.PluggableExporter);
  1816. smalltalk.addMethod(
  1817. smalltalk.method({
  1818. selector: "interpreter",
  1819. category: 'accessing',
  1820. fn: function (){
  1821. var self=this;
  1822. function $ExportRecipeInterpreter(){return smalltalk.ExportRecipeInterpreter||(typeof ExportRecipeInterpreter=="undefined"?nil:ExportRecipeInterpreter)}
  1823. return smalltalk.withContext(function($ctx1) {
  1824. var $1;
  1825. $1=_st($ExportRecipeInterpreter())._new();
  1826. return $1;
  1827. }, function($ctx1) {$ctx1.fill(self,"interpreter",{},smalltalk.PluggableExporter)})},
  1828. args: [],
  1829. source: "interpreter\x0a\x09^ ExportRecipeInterpreter new",
  1830. messageSends: ["new"],
  1831. referencedClasses: ["ExportRecipeInterpreter"]
  1832. }),
  1833. smalltalk.PluggableExporter);
  1834. smalltalk.addMethod(
  1835. smalltalk.method({
  1836. selector: "recipe",
  1837. category: 'accessing',
  1838. fn: function (){
  1839. var self=this;
  1840. return smalltalk.withContext(function($ctx1) {
  1841. var $1;
  1842. $1=self["@recipe"];
  1843. return $1;
  1844. }, function($ctx1) {$ctx1.fill(self,"recipe",{},smalltalk.PluggableExporter)})},
  1845. args: [],
  1846. source: "recipe\x0a\x09^recipe",
  1847. messageSends: [],
  1848. referencedClasses: []
  1849. }),
  1850. smalltalk.PluggableExporter);
  1851. smalltalk.addMethod(
  1852. smalltalk.method({
  1853. selector: "recipe:",
  1854. category: 'accessing',
  1855. fn: function (anArray){
  1856. var self=this;
  1857. return smalltalk.withContext(function($ctx1) {
  1858. self["@recipe"]=anArray;
  1859. return self}, function($ctx1) {$ctx1.fill(self,"recipe:",{anArray:anArray},smalltalk.PluggableExporter)})},
  1860. args: ["anArray"],
  1861. source: "recipe: anArray\x0a\x09recipe := anArray",
  1862. messageSends: [],
  1863. referencedClasses: []
  1864. }),
  1865. smalltalk.PluggableExporter);
  1866. smalltalk.addMethod(
  1867. smalltalk.method({
  1868. selector: "forRecipe:",
  1869. category: 'instance creation',
  1870. fn: function (aRecipe){
  1871. var self=this;
  1872. return smalltalk.withContext(function($ctx1) {
  1873. var $2,$3,$1;
  1874. $2=self._new();
  1875. _st($2)._recipe_(aRecipe);
  1876. $3=_st($2)._yourself();
  1877. $1=$3;
  1878. return $1;
  1879. }, function($ctx1) {$ctx1.fill(self,"forRecipe:",{aRecipe:aRecipe},smalltalk.PluggableExporter.klass)})},
  1880. args: ["aRecipe"],
  1881. source: "forRecipe: aRecipe\x0a\x09^self new recipe: aRecipe; yourself",
  1882. messageSends: ["recipe:", "new", "yourself"],
  1883. referencedClasses: []
  1884. }),
  1885. smalltalk.PluggableExporter.klass);
  1886. smalltalk.addMethod(
  1887. smalltalk.method({
  1888. selector: "ownClassesOfPackage:",
  1889. category: 'convenience',
  1890. fn: function (package_){
  1891. var self=this;
  1892. return smalltalk.withContext(function($ctx1) {
  1893. var $1;
  1894. $1=_st(_st(package_)._sortedClasses())._asSet();
  1895. return $1;
  1896. }, function($ctx1) {$ctx1.fill(self,"ownClassesOfPackage:",{package_:package_},smalltalk.PluggableExporter.klass)})},
  1897. args: ["package"],
  1898. source: "ownClassesOfPackage: package\x0a\x09\x22Export classes in dependency order.\x0a\x09Update (issue #171): Remove duplicates for export\x22\x0a\x09^package sortedClasses asSet",
  1899. messageSends: ["asSet", "sortedClasses"],
  1900. referencedClasses: []
  1901. }),
  1902. smalltalk.PluggableExporter.klass);
  1903. smalltalk.addMethod(
  1904. smalltalk.method({
  1905. selector: "amdNamespace",
  1906. category: '*Importer-Exporter',
  1907. fn: function (){
  1908. var self=this;
  1909. return smalltalk.withContext(function($ctx1) {
  1910. return (self.transport && self.transport.amdNamespace) || nil;
  1911. return self}, function($ctx1) {$ctx1.fill(self,"amdNamespace",{},smalltalk.Package)})},
  1912. args: [],
  1913. source: "amdNamespace\x0a\x09<return (self.transport && self.transport.amdNamespace) || nil>",
  1914. messageSends: [],
  1915. referencedClasses: []
  1916. }),
  1917. smalltalk.Package);
  1918. smalltalk.addMethod(
  1919. smalltalk.method({
  1920. selector: "amdNamespace:",
  1921. category: '*Importer-Exporter',
  1922. fn: function (aString){
  1923. var self=this;
  1924. return smalltalk.withContext(function($ctx1) {
  1925. if (!self.transport) { self.transport = { type: 'amd' }; }
  1926. if (self.transport.type !== 'amd') { throw new Error('Package '+self._name()+' has transport type '+self.transport.type+', not "amd".'); }
  1927. self.transport.amdNamespace = aString;
  1928. ;
  1929. return self}, function($ctx1) {$ctx1.fill(self,"amdNamespace:",{aString:aString},smalltalk.Package)})},
  1930. args: ["aString"],
  1931. source: "amdNamespace: aString\x0a\x09<\x0a\x09\x09if (!self.transport) { self.transport = { type: 'amd' }; }\x0a\x09\x09if (self.transport.type !== 'amd') { throw new Error('Package '+self._name()+' has transport type '+self.transport.type+', not \x22amd\x22.'); }\x0a\x09\x09self.transport.amdNamespace = aString;\x0a\x09>",
  1932. messageSends: [],
  1933. referencedClasses: []
  1934. }),
  1935. smalltalk.Package);
  1936. smalltalk.addMethod(
  1937. smalltalk.method({
  1938. selector: "commit",
  1939. category: '*Importer-Exporter',
  1940. fn: function (){
  1941. var self=this;
  1942. return smalltalk.withContext(function($ctx1) {
  1943. var $1;
  1944. $1=_st(self._handler())._commit_(self);
  1945. return $1;
  1946. }, function($ctx1) {$ctx1.fill(self,"commit",{},smalltalk.Package)})},
  1947. args: [],
  1948. source: "commit\x0a\x09^ self handler commit: self",
  1949. messageSends: ["commit:", "handler"],
  1950. referencedClasses: []
  1951. }),
  1952. smalltalk.Package);
  1953. smalltalk.addMethod(
  1954. smalltalk.method({
  1955. selector: "commitPathJs",
  1956. category: '*Importer-Exporter',
  1957. fn: function (){
  1958. var self=this;
  1959. return smalltalk.withContext(function($ctx1) {
  1960. var $3,$2,$1;
  1961. $3=self["@extension"];
  1962. if(($receiver = $3) == nil || $receiver == undefined){
  1963. self["@extension"]=smalltalk.HashedCollection._from_([]);
  1964. $2=self["@extension"];
  1965. } else {
  1966. $2=$3;
  1967. };
  1968. $1=_st($2)._at_ifAbsent_("commitPathJs",(function(){
  1969. return smalltalk.withContext(function($ctx2) {
  1970. return _st(self._handler())._commitPathJsFor_(self);
  1971. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  1972. return $1;
  1973. }, function($ctx1) {$ctx1.fill(self,"commitPathJs",{},smalltalk.Package)})},
  1974. args: [],
  1975. source: "commitPathJs\x0a\x09^ (extension ifNil: [ extension := #{} ]) at: #commitPathJs ifAbsent: [ self handler commitPathJsFor: self ]",
  1976. messageSends: ["at:ifAbsent:", "commitPathJsFor:", "handler", "ifNil:"],
  1977. referencedClasses: []
  1978. }),
  1979. smalltalk.Package);
  1980. smalltalk.addMethod(
  1981. smalltalk.method({
  1982. selector: "commitPathJs:",
  1983. category: '*Importer-Exporter',
  1984. fn: function (aString){
  1985. var self=this;
  1986. return smalltalk.withContext(function($ctx1) {
  1987. var $3,$2,$1;
  1988. $3=self["@extension"];
  1989. if(($receiver = $3) == nil || $receiver == undefined){
  1990. self["@extension"]=smalltalk.HashedCollection._from_([]);
  1991. $2=self["@extension"];
  1992. } else {
  1993. $2=$3;
  1994. };
  1995. $1=_st($2)._at_put_("commitPathJs",aString);
  1996. return $1;
  1997. }, function($ctx1) {$ctx1.fill(self,"commitPathJs:",{aString:aString},smalltalk.Package)})},
  1998. args: ["aString"],
  1999. source: "commitPathJs: aString\x0a\x09^ (extension ifNil: [ extension := #{} ]) at: #commitPathJs put: aString",
  2000. messageSends: ["at:put:", "ifNil:"],
  2001. referencedClasses: []
  2002. }),
  2003. smalltalk.Package);
  2004. smalltalk.addMethod(
  2005. smalltalk.method({
  2006. selector: "commitPathSt",
  2007. category: '*Importer-Exporter',
  2008. fn: function (){
  2009. var self=this;
  2010. return smalltalk.withContext(function($ctx1) {
  2011. var $3,$2,$1;
  2012. $3=self["@extension"];
  2013. if(($receiver = $3) == nil || $receiver == undefined){
  2014. self["@extension"]=smalltalk.HashedCollection._from_([]);
  2015. $2=self["@extension"];
  2016. } else {
  2017. $2=$3;
  2018. };
  2019. $1=_st($2)._at_ifAbsent_("commitPathSt",(function(){
  2020. return smalltalk.withContext(function($ctx2) {
  2021. return _st(self._handler())._commitPathStFor_(self);
  2022. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  2023. return $1;
  2024. }, function($ctx1) {$ctx1.fill(self,"commitPathSt",{},smalltalk.Package)})},
  2025. args: [],
  2026. source: "commitPathSt\x0a\x09^ (extension ifNil: [ extension := #{} ]) at: #commitPathSt ifAbsent: [ self handler commitPathStFor: self ]",
  2027. messageSends: ["at:ifAbsent:", "commitPathStFor:", "handler", "ifNil:"],
  2028. referencedClasses: []
  2029. }),
  2030. smalltalk.Package);
  2031. smalltalk.addMethod(
  2032. smalltalk.method({
  2033. selector: "commitPathSt:",
  2034. category: '*Importer-Exporter',
  2035. fn: function (aString){
  2036. var self=this;
  2037. return smalltalk.withContext(function($ctx1) {
  2038. var $3,$2,$1;
  2039. $3=self["@extension"];
  2040. if(($receiver = $3) == nil || $receiver == undefined){
  2041. self["@extension"]=smalltalk.HashedCollection._from_([]);
  2042. $2=self["@extension"];
  2043. } else {
  2044. $2=$3;
  2045. };
  2046. $1=_st($2)._at_put_("commitPathSt",aString);
  2047. return $1;
  2048. }, function($ctx1) {$ctx1.fill(self,"commitPathSt:",{aString:aString},smalltalk.Package)})},
  2049. args: ["aString"],
  2050. source: "commitPathSt: aString\x0a\x09^ (extension ifNil: [ extension := #{} ]) at: #commitPathSt put: aString",
  2051. messageSends: ["at:put:", "ifNil:"],
  2052. referencedClasses: []
  2053. }),
  2054. smalltalk.Package);
  2055. smalltalk.addMethod(
  2056. smalltalk.method({
  2057. selector: "handler",
  2058. category: '*Importer-Exporter',
  2059. fn: function (){
  2060. var self=this;
  2061. function $PackageHandler(){return smalltalk.PackageHandler||(typeof PackageHandler=="undefined"?nil:PackageHandler)}
  2062. return smalltalk.withContext(function($ctx1) {
  2063. var $1;
  2064. $1=_st($PackageHandler())._for_(self._transportType());
  2065. return $1;
  2066. }, function($ctx1) {$ctx1.fill(self,"handler",{},smalltalk.Package)})},
  2067. args: [],
  2068. source: "handler\x0a\x09^ PackageHandler for: self transportType",
  2069. messageSends: ["for:", "transportType"],
  2070. referencedClasses: ["PackageHandler"]
  2071. }),
  2072. smalltalk.Package);
  2073. smalltalk.addMethod(
  2074. smalltalk.method({
  2075. selector: "transportJson",
  2076. category: '*Importer-Exporter',
  2077. fn: function (){
  2078. var self=this;
  2079. return smalltalk.withContext(function($ctx1) {
  2080. return JSON.stringify(self.transport || null);;
  2081. return self}, function($ctx1) {$ctx1.fill(self,"transportJson",{},smalltalk.Package)})},
  2082. args: [],
  2083. source: "transportJson\x0a\x09<return JSON.stringify(self.transport || null);>",
  2084. messageSends: [],
  2085. referencedClasses: []
  2086. }),
  2087. smalltalk.Package);
  2088. smalltalk.addMethod(
  2089. smalltalk.method({
  2090. selector: "transportType",
  2091. category: '*Importer-Exporter',
  2092. fn: function (){
  2093. var self=this;
  2094. return smalltalk.withContext(function($ctx1) {
  2095. return (self.transport && self.transport.type) || 'unknown';;
  2096. return self}, function($ctx1) {$ctx1.fill(self,"transportType",{},smalltalk.Package)})},
  2097. args: [],
  2098. source: "transportType\x0a\x09<return (self.transport && self.transport.type) || 'unknown';>",
  2099. messageSends: [],
  2100. referencedClasses: []
  2101. }),
  2102. smalltalk.Package);
  2103. });