12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739 |
- define("amber/Importer-Exporter", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber/Kernel-Objects", "amber/Kernel-Infrastructure"], function(smalltalk,nil,_st){
- smalltalk.addPackage('Importer-Exporter');
- smalltalk.packages["Importer-Exporter"].transport = {"type":"amd","amdNamespace":"amber"};
- smalltalk.addClass('AbstractExporter', smalltalk.Object, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "chunkEscape:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(aString)._replace_with_("!","!!"))._trimBoth();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"chunkEscape:",{aString:aString},smalltalk.AbstractExporter)})},
- messageSends: ["trimBoth", "replace:with:"]}),
- smalltalk.AbstractExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "classNameFor:",
- fn: function (aClass){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(aClass)._isMetaclass();
- if(smalltalk.assert($2)){
- $1=_st(_st(_st(aClass)._instanceClass())._name()).__comma(" class");
- } else {
- $3=_st(aClass)._isNil();
- if(smalltalk.assert($3)){
- $1="nil";
- } else {
- $1=_st(aClass)._name();
- };
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.AbstractExporter)})},
- messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"]}),
- smalltalk.AbstractExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "recipe",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"recipe",{},smalltalk.AbstractExporter)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.AbstractExporter);
- smalltalk.AbstractExporter.klass.iVarNames = ['default'];
- smalltalk.addMethod(
- smalltalk.method({
- selector: "default",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=self["@default"];
- if(($receiver = $2) == nil || $receiver == undefined){
- self["@default"]=self._new();
- $1=self["@default"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"default",{},smalltalk.AbstractExporter.klass)})},
- messageSends: ["ifNil:", "new"]}),
- smalltalk.AbstractExporter.klass);
- smalltalk.addClass('ChunkExporter', smalltalk.AbstractExporter, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportCategoryEpilogueOf:on:",
- fn: function (aCategory,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_(" !");
- _st($1)._lf();
- $2=_st($1)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportCategoryEpilogueOf:on:",{aCategory:aCategory,aStream:aStream},smalltalk.ChunkExporter)})},
- messageSends: ["nextPutAll:", "lf"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportCategoryPrologueOf:on:",
- fn: function (aCategory,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_("!".__comma(self._classNameFor_(_st(aCategory)._theClass())));
- $2=_st($1)._nextPutAll_(_st(" methodsFor: '".__comma(_st(aCategory)._name())).__comma("'!"));
- return self}, function($ctx1) {$ctx1.fill(self,"exportCategoryPrologueOf:on:",{aCategory:aCategory,aStream:aStream},smalltalk.ChunkExporter)})},
- messageSends: ["nextPutAll:", ",", "classNameFor:", "theClass", "name"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportDefinitionOf:on:",
- fn: function (aClass,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$5,$6,$7;
- $1=aStream;
- _st($1)._nextPutAll_(self._classNameFor_(_st(aClass)._superclass()));
- _st($1)._nextPutAll_(" subclass: #".__comma(self._classNameFor_(aClass)));
- _st($1)._lf();
- _st($1)._tab();
- $2=_st($1)._nextPutAll_("instanceVariableNames: '");
- _st(_st(aClass)._instanceVariableNames())._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(" ");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- $3=aStream;
- _st($3)._nextPutAll_("'");
- _st($3)._lf();
- _st($3)._tab();
- _st($3)._nextPutAll_(_st("package: '".__comma(_st(aClass)._category())).__comma("'!"));
- $4=_st($3)._lf();
- $5=_st(_st(aClass)._comment())._notEmpty();
- if(smalltalk.assert($5)){
- $6=aStream;
- _st($6)._nextPutAll_(_st("!".__comma(self._classNameFor_(aClass))).__comma(" commentStamp!"));
- _st($6)._lf();
- _st($6)._nextPutAll_(_st(self._chunkEscape_(_st(aClass)._comment())).__comma("!"));
- $7=_st($6)._lf();
- $7;
- };
- _st(aStream)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
- messageSends: ["nextPutAll:", "classNameFor:", "superclass", ",", "lf", "tab", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "chunkEscape:", "comment", "notEmpty"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportMetaDefinitionOf:on:",
- fn: function (aClass,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$5;
- $1=_st(_st(_st(aClass)._class())._instanceVariableNames())._isEmpty();
- if(! smalltalk.assert($1)){
- $2=aStream;
- _st($2)._nextPutAll_(self._classNameFor_(_st(aClass)._class()));
- $3=_st($2)._nextPutAll_(" instanceVariableNames: '");
- $3;
- _st(_st(_st(aClass)._class())._instanceVariableNames())._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(" ");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- $4=aStream;
- _st($4)._nextPutAll_("'!");
- _st($4)._lf();
- $5=_st($4)._lf();
- $5;
- };
- return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
- messageSends: ["ifFalse:", "nextPutAll:", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "lf", "isEmpty"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportMethod:on:",
- fn: function (aMethod,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._lf();
- _st($1)._lf();
- _st($1)._nextPutAll_(self._chunkEscape_(_st(aMethod)._source()));
- _st($1)._lf();
- $2=_st($1)._nextPutAll_("!");
- return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:on:",{aMethod:aMethod,aStream:aStream},smalltalk.ChunkExporter)})},
- messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportPackageDefinitionOf:on:",
- fn: function (aPackage,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_(_st("Smalltalk current createPackage: '".__comma(_st(aPackage)._name())).__comma("'!"));
- $2=_st($1)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.ChunkExporter)})},
- messageSends: ["nextPutAll:", ",", "name", "lf"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "extensionCategoriesOfPackage:",
- fn: function (aPackage){
- var self=this;
- var name,map,result;
- function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
- function $MethodCategory(){return smalltalk.MethodCategory||(typeof MethodCategory=="undefined"?nil:MethodCategory)}
- function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
- function $Package(){return smalltalk.Package||(typeof Package=="undefined"?nil:Package)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- name=_st(aPackage)._name();
- result=_st($OrderedCollection())._new();
- _st(_st($Package())._sortedClasses_(_st(_st($Smalltalk())._current())._classes()))._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st([each,_st(each)._class()])._do_((function(aClass){
- return smalltalk.withContext(function($ctx3) {
- map=_st($Dictionary())._new();
- map;
- _st(aClass)._protocolsDo_((function(category,methods){
- return smalltalk.withContext(function($ctx4) {
- $1=_st(category).__eq("*".__comma(name));
- if(smalltalk.assert($1)){
- return _st(map)._at_put_(category,methods);
- };
- }, function($ctx4) {$ctx4.fillBlock({category:category,methods:methods},$ctx3)})}));
- return _st(result)._addAll_(_st(_st(_st(map)._keys())._sorted_((function(a,b){
- return smalltalk.withContext(function($ctx4) {
- return _st(a).__lt_eq(b);
- }, function($ctx4) {$ctx4.fillBlock({a:a,b:b},$ctx3)})})))._collect_((function(category){
- return smalltalk.withContext(function($ctx4) {
- return _st($MethodCategory())._name_theClass_methods_(category,aClass,_st(map)._at_(category));
- }, function($ctx4) {$ctx4.fillBlock({category:category},$ctx3)})})));
- }, function($ctx3) {$ctx3.fillBlock({aClass:aClass},$ctx2)})}));
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $2=result;
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"extensionCategoriesOfPackage:",{aPackage:aPackage,name:name,map:map,result:result},smalltalk.ChunkExporter)})},
- messageSends: ["name", "new", "do:", "protocolsDo:", "ifTrue:", "at:put:", "=", ",", "addAll:", "collect:", "name:theClass:methods:", "at:", "sorted:", "<=", "keys", "class", "sortedClasses:", "classes", "current"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "methodsOfCategory:",
- fn: function (aCategory){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(aCategory)._methods())._sorted_((function(a,b){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(a)._selector()).__lt_eq(_st(b)._selector());
- }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"methodsOfCategory:",{aCategory:aCategory},smalltalk.ChunkExporter)})},
- messageSends: ["sorted:", "<=", "selector", "methods"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ownCategoriesOfClass:",
- fn: function (aClass){
- var self=this;
- var map;
- function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
- function $MethodCategory(){return smalltalk.MethodCategory||(typeof MethodCategory=="undefined"?nil:MethodCategory)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- map=_st($Dictionary())._new();
- _st(aClass)._protocolsDo_((function(category,methods){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(category)._match_("^\x5c*");
- if(! smalltalk.assert($1)){
- return _st(map)._at_put_(category,methods);
- };
- }, function($ctx2) {$ctx2.fillBlock({category:category,methods:methods},$ctx1)})}));
- $2=_st(_st(_st(map)._keys())._sorted_((function(a,b){
- return smalltalk.withContext(function($ctx2) {
- return _st(a).__lt_eq(b);
- }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})})))._collect_((function(category){
- return smalltalk.withContext(function($ctx2) {
- return _st($MethodCategory())._name_theClass_methods_(category,aClass,_st(map)._at_(category));
- }, function($ctx2) {$ctx2.fillBlock({category:category},$ctx1)})}));
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"ownCategoriesOfClass:",{aClass:aClass,map:map},smalltalk.ChunkExporter)})},
- messageSends: ["new", "protocolsDo:", "ifFalse:", "at:put:", "match:", "collect:", "name:theClass:methods:", "at:", "sorted:", "<=", "keys"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ownCategoriesOfMetaClass:",
- fn: function (aClass){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self._ownCategoriesOfClass_(_st(aClass)._class());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"ownCategoriesOfMetaClass:",{aClass:aClass},smalltalk.ChunkExporter)})},
- messageSends: ["ownCategoriesOfClass:", "class"]}),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "recipe",
- fn: function (){
- var self=this;
- var exportCategoryRecipe;
- function $PluggableExporter(){return smalltalk.PluggableExporter||(typeof PluggableExporter=="undefined"?nil:PluggableExporter)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- exportCategoryRecipe=[self.__minus_gt("exportCategoryPrologueOf:on:"),[self.__minus_gt("methodsOfCategory:"),self.__minus_gt("exportMethod:on:")],self.__minus_gt("exportCategoryEpilogueOf:on:")];
- $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)];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"recipe",{exportCategoryRecipe:exportCategoryRecipe},smalltalk.ChunkExporter)})},
- messageSends: ["->", ","]}),
- smalltalk.ChunkExporter);
- smalltalk.addClass('Exporter', smalltalk.AbstractExporter, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "amdRecipe",
- fn: function (){
- var self=this;
- var result;
- function $AmdExporter(){return smalltalk.AmdExporter||(typeof AmdExporter=="undefined"?nil:AmdExporter)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- result=self._recipe();
- _st(_st(result)._first())._key_($AmdExporter());
- _st(_st(result)._last())._key_($AmdExporter());
- $1=result;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"amdRecipe",{result:result},smalltalk.Exporter)})},
- messageSends: ["recipe", "key:", "first", "last"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "classNameFor:",
- fn: function (aClass){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(aClass)._isMetaclass();
- if(smalltalk.assert($2)){
- $1=_st(_st(_st(aClass)._instanceClass())._name()).__comma(".klass");
- } else {
- $3=_st(aClass)._isNil();
- if(smalltalk.assert($3)){
- $1="nil";
- } else {
- $1=_st(aClass)._name();
- };
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.Exporter)})},
- messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportDefinitionOf:on:",
- fn: function (aClass,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$5,$6,$7;
- $1=aStream;
- _st($1)._lf();
- _st($1)._nextPutAll_("smalltalk.addClass(");
- _st($1)._nextPutAll_(_st("'".__comma(self._classNameFor_(aClass))).__comma("', "));
- _st($1)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aClass)._superclass())));
- $2=_st($1)._nextPutAll_(", [");
- _st(_st(aClass)._instanceVariableNames())._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(_st("'".__comma(each)).__comma("'"));
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(", ");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- $3=aStream;
- _st($3)._nextPutAll_("], '");
- _st($3)._nextPutAll_(_st(_st(aClass)._category()).__comma("'"));
- $4=_st($3)._nextPutAll_(");");
- $5=_st(_st(aClass)._comment())._notEmpty();
- if(smalltalk.assert($5)){
- $6=aStream;
- _st($6)._lf();
- _st($6)._nextPutAll_("smalltalk.");
- _st($6)._nextPutAll_(self._classNameFor_(aClass));
- _st($6)._nextPutAll_(".comment=");
- _st($6)._nextPutAll_(_st(_st(aClass)._comment())._asJavascript());
- $7=_st($6)._nextPutAll_(";");
- $7;
- };
- _st(aStream)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
- messageSends: ["lf", "nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "asJavascript", "comment", "notEmpty"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportMetaDefinitionOf:on:",
- fn: function (aClass,aStream){
- var self=this;
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3;
- _st(aStream)._lf();
- $1=_st(_st(_st(aClass)._class())._instanceVariableNames())._isEmpty();
- if(! smalltalk.assert($1)){
- $2=aStream;
- _st($2)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aClass)._class())));
- $3=_st($2)._nextPutAll_(".iVarNames = [");
- $3;
- _st(_st(_st(aClass)._class())._instanceVariableNames())._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(_st("'".__comma(each)).__comma("'"));
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(",");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- _st(aStream)._nextPutAll_("];".__comma(_st($String())._lf()));
- };
- return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
- messageSends: ["lf", "ifFalse:", "nextPutAll:", ",", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "isEmpty"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportMethod:on:",
- fn: function (aMethod,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4;
- $1=aStream;
- _st($1)._nextPutAll_("smalltalk.addMethod(");
- _st($1)._lf();
- _st($1)._nextPutAll_("smalltalk.method({");
- _st($1)._lf();
- _st($1)._nextPutAll_(_st("selector: ".__comma(_st(_st(aMethod)._selector())._asJavascript())).__comma(","));
- _st($1)._lf();
- _st($1)._nextPutAll_(_st("category: '".__comma(_st(aMethod)._category())).__comma("',"));
- _st($1)._lf();
- _st($1)._nextPutAll_(_st("fn: ".__comma(_st(_st(aMethod)._fn())._compiledSource())).__comma(","));
- _st($1)._lf();
- _st($1)._nextPutAll_(_st("args: ".__comma(_st(_st(aMethod)._arguments())._asJavascript())).__comma(","));
- _st($1)._lf();
- _st($1)._nextPutAll_(_st("source: ".__comma(_st(_st(aMethod)._source())._asJavascript())).__comma(","));
- _st($1)._lf();
- _st($1)._nextPutAll_(_st("messageSends: ".__comma(_st(_st(aMethod)._messageSends())._asJavascript())).__comma(","));
- _st($1)._lf();
- $2=_st($1)._nextPutAll_("referencedClasses: ".__comma(_st(_st(aMethod)._referencedClasses())._asJavascript()));
- $3=aStream;
- _st($3)._lf();
- _st($3)._nextPutAll_("}),");
- _st($3)._lf();
- _st($3)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aMethod)._methodClass())));
- _st($3)._nextPutAll_(");");
- _st($3)._lf();
- $4=_st($3)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:on:",{aMethod:aMethod,aStream:aStream},smalltalk.Exporter)})},
- messageSends: ["nextPutAll:", "lf", ",", "asJavascript", "selector", "category", "compiledSource", "fn", "arguments", "source", "messageSends", "referencedClasses", "classNameFor:", "methodClass"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportPackageDefinitionOf:on:",
- fn: function (aPackage,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_("smalltalk.addPackage(");
- _st($1)._nextPutAll_(_st("'".__comma(_st(aPackage)._name())).__comma("');"));
- $2=_st($1)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.Exporter)})},
- messageSends: ["nextPutAll:", ",", "name", "lf"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportPackageEpilogueOf:on:",
- fn: function (aPackage,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_("})(global_smalltalk,global_nil,global__st);");
- $2=_st($1)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportPackageEpilogueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.Exporter)})},
- messageSends: ["nextPutAll:", "lf"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportPackagePrologueOf:on:",
- fn: function (aPackage,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_("(function(smalltalk,nil,_st){");
- $2=_st($1)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportPackagePrologueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.Exporter)})},
- messageSends: ["nextPutAll:", "lf"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportPackageTransportOf:on:",
- fn: function (aPackage,aStream){
- var self=this;
- var json;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3;
- json=_st(aPackage)._transportJson();
- $1=_st(json).__eq("null");
- if(! smalltalk.assert($1)){
- $2=aStream;
- _st($2)._nextPutAll_("smalltalk.packages[");
- _st($2)._nextPutAll_(_st(_st(aPackage)._name())._asJavascript());
- _st($2)._nextPutAll_("].transport = ");
- _st($2)._nextPutAll_(json);
- _st($2)._nextPutAll_(";");
- $3=_st($2)._lf();
- $3;
- };
- return self}, function($ctx1) {$ctx1.fill(self,"exportPackageTransportOf:on:",{aPackage:aPackage,aStream:aStream,json:json},smalltalk.Exporter)})},
- messageSends: ["transportJson", "ifFalse:", "nextPutAll:", "asJavascript", "name", "lf", "="]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "extensionMethodsOfPackage:",
- fn: function (aPackage){
- var self=this;
- var name,result;
- function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
- function $Package(){return smalltalk.Package||(typeof Package=="undefined"?nil:Package)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- name=_st(aPackage)._name();
- result=_st($OrderedCollection())._new();
- _st(_st($Package())._sortedClasses_(_st(_st($Smalltalk())._current())._classes()))._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st([each,_st(each)._class()])._do_((function(aClass){
- return smalltalk.withContext(function($ctx3) {
- return _st(result)._addAll_(_st(_st(_st(_st(aClass)._methodDictionary())._values())._sorted_((function(a,b){
- return smalltalk.withContext(function($ctx4) {
- return _st(_st(a)._selector()).__lt_eq(_st(b)._selector());
- }, function($ctx4) {$ctx4.fillBlock({a:a,b:b},$ctx3)})})))._select_((function(method){
- return smalltalk.withContext(function($ctx4) {
- return _st(_st(method)._category()).__eq("*".__comma(name));
- }, function($ctx4) {$ctx4.fillBlock({method:method},$ctx3)})})));
- }, function($ctx3) {$ctx3.fillBlock({aClass:aClass},$ctx2)})}));
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $1=result;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"extensionMethodsOfPackage:",{aPackage:aPackage,name:name,result:result},smalltalk.Exporter)})},
- messageSends: ["name", "new", "do:", "addAll:", "select:", "=", ",", "category", "sorted:", "<=", "selector", "values", "methodDictionary", "class", "sortedClasses:", "classes", "current"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ownMethodsOfClass:",
- fn: function (aClass){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(_st(_st(aClass)._methodDictionary())._values())._sorted_((function(a,b){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(a)._selector()).__lt_eq(_st(b)._selector());
- }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})})))._reject_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(each)._category())._match_("^\x5c*");
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"ownMethodsOfClass:",{aClass:aClass},smalltalk.Exporter)})},
- messageSends: ["reject:", "match:", "category", "sorted:", "<=", "selector", "values", "methodDictionary"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ownMethodsOfMetaClass:",
- fn: function (aClass){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self._ownMethodsOfClass_(_st(aClass)._class());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"ownMethodsOfMetaClass:",{aClass:aClass},smalltalk.Exporter)})},
- messageSends: ["ownMethodsOfClass:", "class"]}),
- smalltalk.Exporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "recipe",
- fn: function (){
- var self=this;
- function $PluggableExporter(){return smalltalk.PluggableExporter||(typeof PluggableExporter=="undefined"?nil:PluggableExporter)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $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:")];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"recipe",{},smalltalk.Exporter)})},
- messageSends: ["->"]}),
- smalltalk.Exporter);
- smalltalk.addClass('StrippedExporter', smalltalk.Exporter, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportDefinitionOf:on:",
- fn: function (aClass,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4;
- $1=aStream;
- _st($1)._lf();
- _st($1)._nextPutAll_("smalltalk.addClass(");
- _st($1)._nextPutAll_(_st("'".__comma(self._classNameFor_(aClass))).__comma("', "));
- _st($1)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aClass)._superclass())));
- $2=_st($1)._nextPutAll_(", [");
- _st(_st(aClass)._instanceVariableNames())._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(_st("'".__comma(each)).__comma("'"));
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(", ");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- $3=aStream;
- _st($3)._nextPutAll_("], '");
- _st($3)._nextPutAll_(_st(_st(aClass)._category()).__comma("'"));
- $4=_st($3)._nextPutAll_(");");
- _st(aStream)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.StrippedExporter)})},
- messageSends: ["lf", "nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category"]}),
- smalltalk.StrippedExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportMethod:on:",
- fn: function (aMethod,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_("smalltalk.addMethod(");
- _st($1)._lf();
- _st($1)._nextPutAll_("smalltalk.method({");
- _st($1)._lf();
- _st($1)._nextPutAll_(_st("selector: ".__comma(_st(_st(aMethod)._selector())._asJavascript())).__comma(","));
- _st($1)._lf();
- _st($1)._nextPutAll_(_st("fn: ".__comma(_st(_st(aMethod)._fn())._compiledSource())).__comma(","));
- _st($1)._lf();
- _st($1)._nextPutAll_("messageSends: ".__comma(_st(_st(aMethod)._messageSends())._asJavascript()));
- _st($1)._nextPutAll_("}),");
- _st($1)._lf();
- _st($1)._nextPutAll_("smalltalk.".__comma(self._classNameFor_(_st(aMethod)._methodClass())));
- _st($1)._nextPutAll_(");");
- _st($1)._lf();
- $2=_st($1)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:on:",{aMethod:aMethod,aStream:aStream},smalltalk.StrippedExporter)})},
- messageSends: ["nextPutAll:", "lf", ",", "asJavascript", "selector", "compiledSource", "fn", "messageSends", "classNameFor:", "methodClass"]}),
- smalltalk.StrippedExporter);
- smalltalk.addClass('AmdExporter', smalltalk.Object, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "amdNamesOfPackages:",
- fn: function (anArray){
- var self=this;
- var deps,depNames;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(anArray)._select_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(each)._amdNamespace())._notNil();
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})))._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st(each)._amdNamespace()).__comma("/")).__comma(_st(each)._name());
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"amdNamesOfPackages:",{anArray:anArray,deps:deps,depNames:depNames},smalltalk.AmdExporter.klass)})},
- messageSends: ["collect:", ",", "name", "amdNamespace", "select:", "notNil"]}),
- smalltalk.AmdExporter.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportPackageEpilogueOf:on:",
- fn: function (aPackage,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_("});");
- $2=_st($1)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportPackageEpilogueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.AmdExporter.klass)})},
- messageSends: ["nextPutAll:", "lf"]}),
- smalltalk.AmdExporter.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportPackagePrologueOf:on:",
- fn: function (aPackage,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$4,$3,$5;
- $1=aStream;
- _st($1)._nextPutAll_("define(\x22");
- $2=$1;
- $4=_st(aPackage)._amdNamespace();
- if(($receiver = $4) == nil || $receiver == undefined){
- $3="amber";
- } else {
- $3=$4;
- };
- _st($2)._nextPutAll_($3);
- _st($1)._nextPutAll_("/");
- _st($1)._nextPutAll_(_st(aPackage)._name());
- _st($1)._nextPutAll_("\x22, ");
- _st($1)._nextPutAll_(_st(["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st"].__comma(self._amdNamesOfPackages_(_st(aPackage)._loadDependencies())))._asJavascript());
- _st($1)._nextPutAll_(", function(smalltalk,nil,_st){");
- $5=_st($1)._lf();
- return self}, function($ctx1) {$ctx1.fill(self,"exportPackagePrologueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.AmdExporter.klass)})},
- messageSends: ["nextPutAll:", "ifNil:", "amdNamespace", "name", "asJavascript", ",", "amdNamesOfPackages:", "loadDependencies", "lf"]}),
- smalltalk.AmdExporter.klass);
- smalltalk.addClass('ChunkParser', smalltalk.Object, ['stream'], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextChunk",
- fn: function (){
- var self=this;
- var char,result,chunk;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3;
- var $early={};
- try {
- result=""._writeStream();
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- char=_st(self["@stream"])._next();
- char;
- return _st(char)._notNil();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(char).__eq("!");
- if(smalltalk.assert($1)){
- $2=_st(_st(self["@stream"])._peek()).__eq("!");
- if(smalltalk.assert($2)){
- _st(self["@stream"])._next();
- } else {
- $3=_st(_st(result)._contents())._trimBoth();
- throw $early=[$3];
- };
- };
- return _st(result)._nextPut_(char);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return nil;
- }
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"nextChunk",{char:char,result:result,chunk:chunk},smalltalk.ChunkParser)})},
- messageSends: ["writeStream", "whileTrue:", "ifTrue:", "ifTrue:ifFalse:", "next", "trimBoth", "contents", "=", "peek", "nextPut:", "notNil"]}),
- smalltalk.ChunkParser);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "stream:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@stream"]=aStream;
- return self}, function($ctx1) {$ctx1.fill(self,"stream:",{aStream:aStream},smalltalk.ChunkParser)})},
- messageSends: []}),
- smalltalk.ChunkParser);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "on:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._new())._stream_(aStream);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"on:",{aStream:aStream},smalltalk.ChunkParser.klass)})},
- messageSends: ["stream:", "new"]}),
- smalltalk.ChunkParser.klass);
- smalltalk.addClass('ExportRecipeInterpreter', smalltalk.Object, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "interpret:for:on:",
- fn: function (aRecipe,anObject,aStream){
- var self=this;
- var recipeStream;
- return smalltalk.withContext(function($ctx1) {
- recipeStream=_st(aRecipe)._readStream();
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(recipeStream)._atEnd();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._interpretStep_for_on_(_st(recipeStream)._next(),anObject,aStream);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"interpret:for:on:",{aRecipe:aRecipe,anObject:anObject,aStream:aStream,recipeStream:recipeStream},smalltalk.ExportRecipeInterpreter)})},
- messageSends: ["readStream", "whileFalse:", "interpretStep:for:on:", "next", "atEnd"]}),
- smalltalk.ExportRecipeInterpreter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "interpretStep:for:on:",
- fn: function (aRecipeStep,anObject,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(_st(aRecipeStep)._value()).__eq_eq(aRecipeStep);
- if(smalltalk.assert($1)){
- $2=self._interpretSubRecipe_for_on_(aRecipeStep,anObject,aStream);
- return $2;
- };
- _st(_st(aRecipeStep)._key())._perform_withArguments_(_st(aRecipeStep)._value(),[anObject,aStream]);
- return self}, function($ctx1) {$ctx1.fill(self,"interpretStep:for:on:",{aRecipeStep:aRecipeStep,anObject:anObject,aStream:aStream},smalltalk.ExportRecipeInterpreter)})},
- messageSends: ["ifTrue:", "interpretSubRecipe:for:on:", "==", "value", "perform:withArguments:", "key"]}),
- smalltalk.ExportRecipeInterpreter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "interpretSubRecipe:for:on:",
- fn: function (aRecipe,anObject,aStream){
- var self=this;
- var selection;
- return smalltalk.withContext(function($ctx1) {
- selection=_st(_st(_st(aRecipe)._first())._key())._perform_withArguments_(_st(_st(aRecipe)._first())._value(),[anObject]);
- _st(selection)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return self._interpret_for_on_(_st(aRecipe)._allButFirst(),each,aStream);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"interpretSubRecipe:for:on:",{aRecipe:aRecipe,anObject:anObject,aStream:aStream,selection:selection},smalltalk.ExportRecipeInterpreter)})},
- messageSends: ["perform:withArguments:", "value", "first", "key", "do:", "interpret:for:on:", "allButFirst"]}),
- smalltalk.ExportRecipeInterpreter);
- smalltalk.addClass('Importer', smalltalk.Object, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "import:",
- fn: function (aStream){
- var self=this;
- var chunk,result,parser,lastEmpty;
- function $ChunkParser(){return smalltalk.ChunkParser||(typeof ChunkParser=="undefined"?nil:ChunkParser)}
- function $Compiler(){return smalltalk.Compiler||(typeof Compiler=="undefined"?nil:Compiler)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- parser=_st($ChunkParser())._on_(aStream);
- lastEmpty=false;
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- chunk=_st(parser)._nextChunk();
- chunk;
- return _st(chunk)._isNil();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(chunk)._isEmpty();
- if(smalltalk.assert($1)){
- lastEmpty=true;
- return lastEmpty;
- } else {
- result=_st(_st($Compiler())._new())._evaluateExpression_(chunk);
- result;
- $2=lastEmpty;
- if(smalltalk.assert($2)){
- lastEmpty=false;
- lastEmpty;
- return _st(result)._scanFrom_(parser);
- };
- };
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"import:",{aStream:aStream,chunk:chunk,result:result,parser:parser,lastEmpty:lastEmpty},smalltalk.Importer)})},
- messageSends: ["on:", "whileFalse:", "ifTrue:ifFalse:", "evaluateExpression:", "new", "ifTrue:", "scanFrom:", "isEmpty", "nextChunk", "isNil"]}),
- smalltalk.Importer);
- smalltalk.addClass('MethodCategory', smalltalk.Object, ['methods', 'name', 'theClass'], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "methods",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@methods"];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"methods",{},smalltalk.MethodCategory)})},
- messageSends: []}),
- smalltalk.MethodCategory);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "methods:",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@methods"]=aCollection;
- return self}, function($ctx1) {$ctx1.fill(self,"methods:",{aCollection:aCollection},smalltalk.MethodCategory)})},
- messageSends: []}),
- smalltalk.MethodCategory);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "name",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@name"];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"name",{},smalltalk.MethodCategory)})},
- messageSends: []}),
- smalltalk.MethodCategory);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "name:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@name"]=aString;
- return self}, function($ctx1) {$ctx1.fill(self,"name:",{aString:aString},smalltalk.MethodCategory)})},
- messageSends: []}),
- smalltalk.MethodCategory);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "theClass",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@theClass"];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.MethodCategory)})},
- messageSends: []}),
- smalltalk.MethodCategory);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "theClass:",
- fn: function (aClass){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@theClass"]=aClass;
- return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass},smalltalk.MethodCategory)})},
- messageSends: []}),
- smalltalk.MethodCategory);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "name:theClass:methods:",
- fn: function (aString,aClass,anArray){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=self._new();
- _st($2)._name_(aString);
- _st($2)._theClass_(aClass);
- _st($2)._methods_(anArray);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"name:theClass:methods:",{aString:aString,aClass:aClass,anArray:anArray},smalltalk.MethodCategory.klass)})},
- messageSends: ["name:", "new", "theClass:", "methods:", "yourself"]}),
- smalltalk.MethodCategory.klass);
- smalltalk.addClass('PackageHandler', smalltalk.InterfacingObject, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ajaxPutAt:data:",
- fn: function (aURL,aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- 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){
- return smalltalk.withContext(function($ctx2) {
- return self._error_(_st(_st(_st("Commiting ".__comma(aURL)).__comma(" failed with reason: \x22")).__comma(_st(xhr)._responseText())).__comma("\x22"));
- }, function($ctx2) {$ctx2.fillBlock({xhr:xhr},$ctx1)})}))]));
- return self}, function($ctx1) {$ctx1.fill(self,"ajaxPutAt:data:",{aURL:aURL,aString:aString},smalltalk.PackageHandler)})},
- messageSends: ["ajax:", "->", "error:", ",", "responseText"]}),
- smalltalk.PackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commit:",
- fn: function (aPackage){
- var self=this;
- function $PluggableExporter(){return smalltalk.PluggableExporter||(typeof PluggableExporter=="undefined"?nil:PluggableExporter)}
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- _st(self._commitChannels())._do_displayingProgress_((function(commitStrategyFactory){
- var fileContents,commitStrategy;
- return smalltalk.withContext(function($ctx2) {
- commitStrategy=_st(commitStrategyFactory)._value_(aPackage);
- commitStrategy;
- fileContents=_st($String())._streamContents_((function(stream){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st($PluggableExporter())._forRecipe_(_st(commitStrategy)._key()))._exportPackage_on_(aPackage,stream);
- }, function($ctx3) {$ctx3.fillBlock({stream:stream},$ctx2)})}));
- fileContents;
- return self._ajaxPutAt_data_(_st(commitStrategy)._value(),fileContents);
- }, function($ctx2) {$ctx2.fillBlock({commitStrategyFactory:commitStrategyFactory,fileContents:fileContents,commitStrategy:commitStrategy},$ctx1)})}),"Committing package ".__comma(_st(aPackage)._name()));
- return self}, function($ctx1) {$ctx1.fill(self,"commit:",{aPackage:aPackage},smalltalk.PackageHandler)})},
- messageSends: ["do:displayingProgress:", "value:", "streamContents:", "exportPackage:on:", "forRecipe:", "key", "ajaxPutAt:data:", "value", ",", "name", "commitChannels"]}),
- smalltalk.PackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitChannels",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"commitChannels",{},smalltalk.PackageHandler)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.PackageHandler);
- smalltalk.PackageHandler.klass.iVarNames = ['registry'];
- smalltalk.addMethod(
- smalltalk.method({
- selector: "classRegisteredFor:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@registry"])._at_(aString);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"classRegisteredFor:",{aString:aString},smalltalk.PackageHandler.klass)})},
- messageSends: ["at:"]}),
- smalltalk.PackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "for:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._classRegisteredFor_(aString))._new();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"for:",{aString:aString},smalltalk.PackageHandler.klass)})},
- messageSends: ["new", "classRegisteredFor:"]}),
- smalltalk.PackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "initialize",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.PackageHandler.klass.superclass.fn.prototype._initialize.apply(_st(self), []);
- self["@registry"]=smalltalk.HashedCollection._from_([]);
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.PackageHandler.klass)})},
- messageSends: ["initialize"]}),
- smalltalk.PackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "register:for:",
- fn: function (aClass,aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self["@registry"])._at_put_(aString,aClass);
- return self}, function($ctx1) {$ctx1.fill(self,"register:for:",{aClass:aClass,aString:aString},smalltalk.PackageHandler.klass)})},
- messageSends: ["at:put:"]}),
- smalltalk.PackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerFor:",
- fn: function (aString){
- var self=this;
- function $PackageHandler(){return smalltalk.PackageHandler||(typeof PackageHandler=="undefined"?nil:PackageHandler)}
- return smalltalk.withContext(function($ctx1) {
- _st($PackageHandler())._register_for_(self,aString);
- return self}, function($ctx1) {$ctx1.fill(self,"registerFor:",{aString:aString},smalltalk.PackageHandler.klass)})},
- messageSends: ["register:for:"]}),
- smalltalk.PackageHandler.klass);
- smalltalk.addClass('AmdPackageHandler', smalltalk.PackageHandler, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitChannels",
- fn: function (){
- var self=this;
- function $Exporter(){return smalltalk.Exporter||(typeof Exporter=="undefined"?nil:Exporter)}
- function $StrippedExporter(){return smalltalk.StrippedExporter||(typeof StrippedExporter=="undefined"?nil:StrippedExporter)}
- function $ChunkExporter(){return smalltalk.ChunkExporter||(typeof ChunkExporter=="undefined"?nil:ChunkExporter)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=[(function(pkg){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st($Exporter())._default())._amdRecipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathJs()).__comma("/")).__comma(_st(pkg)._name())).__comma(".js"));
- }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})}),(function(pkg){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st($StrippedExporter())._default())._amdRecipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathJs()).__comma("/")).__comma(_st(pkg)._name())).__comma(".deploy.js"));
- }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})}),(function(pkg){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st($ChunkExporter())._default())._recipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathSt()).__comma("/")).__comma(_st(pkg)._name())).__comma(".st"));
- }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})})];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitChannels",{},smalltalk.AmdPackageHandler)})},
- messageSends: ["->", ",", "name", "commitPathJs", "amdRecipe", "default", "commitPathSt", "recipe"]}),
- smalltalk.AmdPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathJsFor:",
- fn: function (aPackage){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self._toUrl_(self._namespaceFor_(aPackage));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitPathJsFor:",{aPackage:aPackage},smalltalk.AmdPackageHandler)})},
- messageSends: ["toUrl:", "namespaceFor:"]}),
- smalltalk.AmdPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathStFor:",
- fn: function (aPackage){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self._toUrl_(_st(self._namespaceFor_(aPackage)).__comma("/_source"));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitPathStFor:",{aPackage:aPackage},smalltalk.AmdPackageHandler)})},
- messageSends: ["toUrl:", ",", "namespaceFor:"]}),
- smalltalk.AmdPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "namespaceFor:",
- fn: function (aPackage){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$4,$1;
- $2=_st(aPackage)._amdNamespace();
- if(($receiver = $2) == nil || $receiver == undefined){
- $3=aPackage;
- _st($3)._amdNamespace_(_st(self._class())._defaultNamespace());
- $4=_st($3)._amdNamespace();
- $1=$4;
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"namespaceFor:",{aPackage:aPackage},smalltalk.AmdPackageHandler)})},
- messageSends: ["ifNil:", "amdNamespace:", "defaultNamespace", "class", "amdNamespace"]}),
- smalltalk.AmdPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "toUrl:",
- fn: function (aString){
- var self=this;
- function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=_st(_st($Smalltalk())._current())._amdRequire();
- if(($receiver = $2) == nil || $receiver == undefined){
- $1=self._error_("AMD loader not present");
- } else {
- var require;
- require=$receiver;
- $1=_st(_st(require)._basicAt_("toUrl"))._value_(aString);
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"toUrl:",{aString:aString},smalltalk.AmdPackageHandler)})},
- messageSends: ["ifNil:ifNotNil:", "error:", "value:", "basicAt:", "amdRequire", "current"]}),
- smalltalk.AmdPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultNamespace",
- fn: function (){
- var self=this;
- function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st($Smalltalk())._current())._defaultAMDNamespace();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"defaultNamespace",{},smalltalk.AmdPackageHandler.klass)})},
- messageSends: ["defaultAMDNamespace", "current"]}),
- smalltalk.AmdPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultNamespace:",
- fn: function (aString){
- var self=this;
- function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
- return smalltalk.withContext(function($ctx1) {
- _st(_st($Smalltalk())._current())._defaultAMDNamespace_(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"defaultNamespace:",{aString:aString},smalltalk.AmdPackageHandler.klass)})},
- messageSends: ["defaultAMDNamespace:", "current"]}),
- smalltalk.AmdPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "initialize",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.AmdPackageHandler.klass.superclass.fn.prototype._initialize.apply(_st(self), []);
- self._registerFor_("amd");
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.AmdPackageHandler.klass)})},
- messageSends: ["initialize", "registerFor:"]}),
- smalltalk.AmdPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "resetCommitPaths",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@defaultNamespace"]=nil;
- return self}, function($ctx1) {$ctx1.fill(self,"resetCommitPaths",{},smalltalk.AmdPackageHandler.klass)})},
- messageSends: []}),
- smalltalk.AmdPackageHandler.klass);
- smalltalk.addClass('LegacyPackageHandler', smalltalk.PackageHandler, [], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitChannels",
- fn: function (){
- var self=this;
- function $Exporter(){return smalltalk.Exporter||(typeof Exporter=="undefined"?nil:Exporter)}
- function $StrippedExporter(){return smalltalk.StrippedExporter||(typeof StrippedExporter=="undefined"?nil:StrippedExporter)}
- function $ChunkExporter(){return smalltalk.ChunkExporter||(typeof ChunkExporter=="undefined"?nil:ChunkExporter)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=[(function(pkg){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st($Exporter())._default())._recipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathJs()).__comma("/")).__comma(_st(pkg)._name())).__comma(".js"));
- }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})}),(function(pkg){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st($StrippedExporter())._default())._recipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathJs()).__comma("/")).__comma(_st(pkg)._name())).__comma(".deploy.js"));
- }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})}),(function(pkg){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st($ChunkExporter())._default())._recipe()).__minus_gt(_st(_st(_st(_st(pkg)._commitPathSt()).__comma("/")).__comma(_st(pkg)._name())).__comma(".st"));
- }, function($ctx2) {$ctx2.fillBlock({pkg:pkg},$ctx1)})})];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitChannels",{},smalltalk.LegacyPackageHandler)})},
- messageSends: ["->", ",", "name", "commitPathJs", "recipe", "default", "commitPathSt"]}),
- smalltalk.LegacyPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathJsFor:",
- fn: function (aPackage){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._class())._defaultCommitPathJs();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitPathJsFor:",{aPackage:aPackage},smalltalk.LegacyPackageHandler)})},
- messageSends: ["defaultCommitPathJs", "class"]}),
- smalltalk.LegacyPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathStFor:",
- fn: function (aPackage){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._class())._defaultCommitPathSt();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitPathStFor:",{aPackage:aPackage},smalltalk.LegacyPackageHandler)})},
- messageSends: ["defaultCommitPathSt", "class"]}),
- smalltalk.LegacyPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "loadPackage:prefix:",
- fn: function (packageName,aString){
- var self=this;
- var url;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- url=_st(_st(_st("/".__comma(aString)).__comma("/js/")).__comma(packageName)).__comma(".js");
- self._ajax_(smalltalk.HashedCollection._from_(["url".__minus_gt(url),"type".__minus_gt("GET"),"dataType".__minus_gt("script"),"complete".__minus_gt((function(jqXHR,textStatus){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(_st(jqXHR)._readyState()).__eq((4));
- if(smalltalk.assert($1)){
- return self._setupPackageNamed_prefix_(packageName,aString);
- };
- }, function($ctx2) {$ctx2.fillBlock({jqXHR:jqXHR,textStatus:textStatus},$ctx1)})})),"error".__minus_gt((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._alert_("Could not load package at: ".__comma(url));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))]));
- return self}, function($ctx1) {$ctx1.fill(self,"loadPackage:prefix:",{packageName:packageName,aString:aString,url:url},smalltalk.LegacyPackageHandler)})},
- messageSends: [",", "ajax:", "->", "ifTrue:", "setupPackageNamed:prefix:", "=", "readyState", "alert:"]}),
- smalltalk.LegacyPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "loadPackages:prefix:",
- fn: function (aCollection,aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(aCollection)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return self._loadPackage_prefix_(each,aString);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.LegacyPackageHandler)})},
- messageSends: ["do:", "loadPackage:prefix:"]}),
- smalltalk.LegacyPackageHandler);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setupPackageNamed:prefix:",
- fn: function (packageName,aString){
- var self=this;
- function $Package(){return smalltalk.Package||(typeof Package=="undefined"?nil:Package)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st($Package())._named_(packageName);
- _st($1)._setupClasses();
- _st($1)._commitPathJs_(_st("/".__comma(aString)).__comma("/js"));
- $2=_st($1)._commitPathSt_(_st("/".__comma(aString)).__comma("/st"));
- return self}, function($ctx1) {$ctx1.fill(self,"setupPackageNamed:prefix:",{packageName:packageName,aString:aString},smalltalk.LegacyPackageHandler)})},
- messageSends: ["setupClasses", "named:", "commitPathJs:", ",", "commitPathSt:"]}),
- smalltalk.LegacyPackageHandler);
- smalltalk.LegacyPackageHandler.klass.iVarNames = ['defaultCommitPathJs','defaultCommitPathSt'];
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathsFromLoader",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var commitPath = typeof amber !== 'undefined' && amber.commitPath;
- if (!commitPath) return;
- if (commitPath.js) self._defaultCommitPathJs_(commitPath.js);
- if (commitPath.st) self._defaultCommitPathSt_(commitPath.st);
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"commitPathsFromLoader",{},smalltalk.LegacyPackageHandler.klass)})},
- messageSends: []}),
- smalltalk.LegacyPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultCommitPathJs",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=self["@defaultCommitPathJs"];
- if(($receiver = $2) == nil || $receiver == undefined){
- self["@defaultCommitPathJs"]="js";
- $1=self["@defaultCommitPathJs"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"defaultCommitPathJs",{},smalltalk.LegacyPackageHandler.klass)})},
- messageSends: ["ifNil:"]}),
- smalltalk.LegacyPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultCommitPathJs:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@defaultCommitPathJs"]=aString;
- return self}, function($ctx1) {$ctx1.fill(self,"defaultCommitPathJs:",{aString:aString},smalltalk.LegacyPackageHandler.klass)})},
- messageSends: []}),
- smalltalk.LegacyPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultCommitPathSt",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=self["@defaultCommitPathSt"];
- if(($receiver = $2) == nil || $receiver == undefined){
- self["@defaultCommitPathSt"]="st";
- $1=self["@defaultCommitPathSt"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"defaultCommitPathSt",{},smalltalk.LegacyPackageHandler.klass)})},
- messageSends: ["ifNil:"]}),
- smalltalk.LegacyPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultCommitPathSt:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@defaultCommitPathSt"]=aString;
- return self}, function($ctx1) {$ctx1.fill(self,"defaultCommitPathSt:",{aString:aString},smalltalk.LegacyPackageHandler.klass)})},
- messageSends: []}),
- smalltalk.LegacyPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "initialize",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.LegacyPackageHandler.klass.superclass.fn.prototype._initialize.apply(_st(self), []);
- self._registerFor_("unknown");
- self._commitPathsFromLoader();
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.LegacyPackageHandler.klass)})},
- messageSends: ["initialize", "registerFor:", "commitPathsFromLoader"]}),
- smalltalk.LegacyPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "loadPackages:prefix:",
- fn: function (aCollection,aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._new())._loadPackages_prefix_(aCollection,aString);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.LegacyPackageHandler.klass)})},
- messageSends: ["loadPackages:prefix:", "new"]}),
- smalltalk.LegacyPackageHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "resetCommitPaths",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@defaultCommitPathJs"]=nil;
- self["@defaultCommitPathSt"]=nil;
- return self}, function($ctx1) {$ctx1.fill(self,"resetCommitPaths",{},smalltalk.LegacyPackageHandler.klass)})},
- messageSends: []}),
- smalltalk.LegacyPackageHandler.klass);
- smalltalk.addClass('PluggableExporter', smalltalk.Object, ['recipe'], 'Importer-Exporter');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportAllPackages",
- fn: function (){
- var self=this;
- function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($String())._streamContents_((function(stream){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st($Smalltalk())._current())._packages())._do_((function(pkg){
- return smalltalk.withContext(function($ctx3) {
- return self._exportPackage_on_(pkg,stream);
- }, function($ctx3) {$ctx3.fillBlock({pkg:pkg},$ctx2)})}));
- }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"exportAllPackages",{},smalltalk.PluggableExporter)})},
- messageSends: ["streamContents:", "do:", "exportPackage:on:", "packages", "current"]}),
- smalltalk.PluggableExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exportPackage:on:",
- fn: function (aPackage,aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._interpreter())._interpret_for_on_(self._recipe(),aPackage,aStream);
- return self}, function($ctx1) {$ctx1.fill(self,"exportPackage:on:",{aPackage:aPackage,aStream:aStream},smalltalk.PluggableExporter)})},
- messageSends: ["interpret:for:on:", "recipe", "interpreter"]}),
- smalltalk.PluggableExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "interpreter",
- fn: function (){
- var self=this;
- function $ExportRecipeInterpreter(){return smalltalk.ExportRecipeInterpreter||(typeof ExportRecipeInterpreter=="undefined"?nil:ExportRecipeInterpreter)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($ExportRecipeInterpreter())._new();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"interpreter",{},smalltalk.PluggableExporter)})},
- messageSends: ["new"]}),
- smalltalk.PluggableExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "recipe",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@recipe"];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"recipe",{},smalltalk.PluggableExporter)})},
- messageSends: []}),
- smalltalk.PluggableExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "recipe:",
- fn: function (anArray){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@recipe"]=anArray;
- return self}, function($ctx1) {$ctx1.fill(self,"recipe:",{anArray:anArray},smalltalk.PluggableExporter)})},
- messageSends: []}),
- smalltalk.PluggableExporter);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "forRecipe:",
- fn: function (aRecipe){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=self._new();
- _st($2)._recipe_(aRecipe);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"forRecipe:",{aRecipe:aRecipe},smalltalk.PluggableExporter.klass)})},
- messageSends: ["recipe:", "new", "yourself"]}),
- smalltalk.PluggableExporter.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ownClassesOfPackage:",
- fn: function (package_){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(package_)._sortedClasses())._asSet();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"ownClassesOfPackage:",{package_:package_},smalltalk.PluggableExporter.klass)})},
- messageSends: ["asSet", "sortedClasses"]}),
- smalltalk.PluggableExporter.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "amdNamespace",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return (self.transport && self.transport.amdNamespace) || nil;
- return self}, function($ctx1) {$ctx1.fill(self,"amdNamespace",{},smalltalk.Package)})},
- messageSends: []}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "amdNamespace:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- if (!self.transport) { self.transport = { type: 'amd' }; }
- if (self.transport.type !== 'amd') { throw new Error('Package '+self._name()+' has transport type '+self.transport.type+', not "amd".'); }
- self.transport.amdNamespace = aString;
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"amdNamespace:",{aString:aString},smalltalk.Package)})},
- messageSends: []}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commit",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._handler())._commit_(self);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commit",{},smalltalk.Package)})},
- messageSends: ["commit:", "handler"]}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathJs",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $3,$2,$1;
- $3=self["@extension"];
- if(($receiver = $3) == nil || $receiver == undefined){
- self["@extension"]=smalltalk.HashedCollection._from_([]);
- $2=self["@extension"];
- } else {
- $2=$3;
- };
- $1=_st($2)._at_ifAbsent_("commitPathJs",(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._handler())._commitPathJsFor_(self);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitPathJs",{},smalltalk.Package)})},
- messageSends: ["at:ifAbsent:", "commitPathJsFor:", "handler", "ifNil:"]}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathJs:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $3,$2,$1;
- $3=self["@extension"];
- if(($receiver = $3) == nil || $receiver == undefined){
- self["@extension"]=smalltalk.HashedCollection._from_([]);
- $2=self["@extension"];
- } else {
- $2=$3;
- };
- $1=_st($2)._at_put_("commitPathJs",aString);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitPathJs:",{aString:aString},smalltalk.Package)})},
- messageSends: ["at:put:", "ifNil:"]}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathSt",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $3,$2,$1;
- $3=self["@extension"];
- if(($receiver = $3) == nil || $receiver == undefined){
- self["@extension"]=smalltalk.HashedCollection._from_([]);
- $2=self["@extension"];
- } else {
- $2=$3;
- };
- $1=_st($2)._at_ifAbsent_("commitPathSt",(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._handler())._commitPathStFor_(self);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitPathSt",{},smalltalk.Package)})},
- messageSends: ["at:ifAbsent:", "commitPathStFor:", "handler", "ifNil:"]}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPathSt:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $3,$2,$1;
- $3=self["@extension"];
- if(($receiver = $3) == nil || $receiver == undefined){
- self["@extension"]=smalltalk.HashedCollection._from_([]);
- $2=self["@extension"];
- } else {
- $2=$3;
- };
- $1=_st($2)._at_put_("commitPathSt",aString);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commitPathSt:",{aString:aString},smalltalk.Package)})},
- messageSends: ["at:put:", "ifNil:"]}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "handler",
- fn: function (){
- var self=this;
- function $PackageHandler(){return smalltalk.PackageHandler||(typeof PackageHandler=="undefined"?nil:PackageHandler)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($PackageHandler())._for_(self._transportType());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"handler",{},smalltalk.Package)})},
- messageSends: ["for:", "transportType"]}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "transportJson",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return JSON.stringify(self.transport || null);;
- return self}, function($ctx1) {$ctx1.fill(self,"transportJson",{},smalltalk.Package)})},
- messageSends: []}),
- smalltalk.Package);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "transportType",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return (self.transport && self.transport.type) || 'unknown';;
- return self}, function($ctx1) {$ctx1.fill(self,"transportType",{},smalltalk.Package)})},
- messageSends: []}),
- smalltalk.Package);
- });
|