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.AbstractExporter.comment="I am an abstract exporter for Amber source code.\x0a\x0a## API\x0a\x0aUse `#exportPackage:on:` to export a given package on a Stream."; smalltalk.addMethod( smalltalk.method({ selector: "chunkEscape:", category: 'convenience', 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)})}, args: ["aString"], source: "chunkEscape: aString\x0a\x09\x22Replace all occurrences of ! with !! and trim at both ends.\x22\x0a\x0a\x09^(aString replace: '!' with: '!!') trimBoth", messageSends: ["trimBoth", "replace:with:"], referencedClasses: [] }), smalltalk.AbstractExporter); smalltalk.addMethod( smalltalk.method({ selector: "classNameFor:", category: 'convenience', 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)})}, args: ["aClass"], 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 ] ]", messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"], referencedClasses: [] }), smalltalk.AbstractExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackage:on:", category: 'output', fn: function (aPackage,aStream){ var self=this; return smalltalk.withContext(function($ctx1) { self._subclassResponsibility(); return self}, function($ctx1) {$ctx1.fill(self,"exportPackage:on:",{aPackage:aPackage,aStream:aStream},smalltalk.AbstractExporter)})}, args: ["aPackage", "aStream"], source: "exportPackage: aPackage on: aStream\x0a\x09self subclassResponsibility", messageSends: ["subclassResponsibility"], referencedClasses: [] }), smalltalk.AbstractExporter); smalltalk.addMethod( smalltalk.method({ selector: "extensionMethodsOfPackage:", category: 'accessing', fn: function (aPackage){ var self=this; var result; function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)} return smalltalk.withContext(function($ctx1) { var $1; result=_st($OrderedCollection())._new(); _st(self._extensionProtocolsOfPackage_(aPackage))._do_((function(each){ return smalltalk.withContext(function($ctx2) { return _st(result)._addAll_(_st(each)._methods()); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); $1=result; return $1; }, function($ctx1) {$ctx1.fill(self,"extensionMethodsOfPackage:",{aPackage:aPackage,result:result},smalltalk.AbstractExporter)})}, args: ["aPackage"], source: "extensionMethodsOfPackage: aPackage\x0a\x09| result |\x0a\x09\x0a\x09result := OrderedCollection new.\x0a\x09\x0a\x09(self extensionProtocolsOfPackage: aPackage) do: [ :each |\x0a\x09\x09result addAll: each methods ].\x0a\x09\x09\x0a\x09^ result", messageSends: ["new", "do:", "addAll:", "methods", "extensionProtocolsOfPackage:"], referencedClasses: ["OrderedCollection"] }), smalltalk.AbstractExporter); smalltalk.addMethod( smalltalk.method({ selector: "extensionProtocolsOfPackage:", category: 'accessing', fn: function (aPackage){ var self=this; var extensionName,result; function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)} function $ExportMethodProtocol(){return smalltalk.ExportMethodProtocol||(typeof ExportMethodProtocol=="undefined"?nil:ExportMethodProtocol)} function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)} return smalltalk.withContext(function($ctx1) { var $1,$2; extensionName="*".__comma(_st(aPackage)._name()); result=_st($OrderedCollection())._new(); _st(_st(_st($Smalltalk())._current())._classes())._do_((function(each){ return smalltalk.withContext(function($ctx2) { return _st([each,_st(each)._class()])._do_((function(behavior){ return smalltalk.withContext(function($ctx3) { $1=_st(_st(behavior)._protocols())._includes_(extensionName); if(smalltalk.assert($1)){ return _st(result)._add_(_st($ExportMethodProtocol())._name_theClass_(extensionName,behavior)); }; }, function($ctx3) {$ctx3.fillBlock({behavior:behavior},$ctx2)})})); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); $2=result; return $2; }, function($ctx1) {$ctx1.fill(self,"extensionProtocolsOfPackage:",{aPackage:aPackage,extensionName:extensionName,result:result},smalltalk.AbstractExporter)})}, args: ["aPackage"], source: "extensionProtocolsOfPackage: aPackage\x0a\x09| extensionName result |\x0a\x09\x0a\x09extensionName := '*', aPackage name.\x0a\x09result := OrderedCollection new.\x0a\x09\x0a\x09\x22The classes must be loaded since it is extensions only.\x0a\x09Therefore sorting (dependency resolution) does not matter here.\x0a\x09Not sorting improves the speed by a number of magnitude.\x22\x0a\x09\x0a\x09Smalltalk current classes do: [ :each |\x0a\x09\x09{each. each class} do: [ :behavior |\x0a\x09\x09\x09(behavior protocols includes: extensionName) ifTrue: [\x0a\x09\x09\x09\x09result add: (ExportMethodProtocol name: extensionName theClass: behavior) ] ] ].\x0a\x0a\x09^result", messageSends: [",", "name", "new", "do:", "ifTrue:", "add:", "name:theClass:", "includes:", "protocols", "class", "classes", "current"], referencedClasses: ["OrderedCollection", "ExportMethodProtocol", "Smalltalk"] }), smalltalk.AbstractExporter); smalltalk.AbstractExporter.klass.iVarNames = ['default']; smalltalk.addMethod( smalltalk.method({ selector: "default", category: 'instance creation', 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)})}, args: [], source: "default\x0a\x09^ default ifNil: [ default := self new ]", messageSends: ["ifNil:", "new"], referencedClasses: [] }), smalltalk.AbstractExporter.klass); smalltalk.addClass('ChunkExporter', smalltalk.AbstractExporter, [], 'Importer-Exporter'); 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."; smalltalk.addMethod( smalltalk.method({ selector: "exportDefinitionOf:on:", category: 'output', 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)})}, args: ["aClass", "aStream"], 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", messageSends: ["nextPutAll:", "classNameFor:", "superclass", ",", "lf", "tab", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "chunkEscape:", "comment", "notEmpty"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportMetaDefinitionOf:on:", category: 'output', 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)})}, args: ["aClass", "aStream"], 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]", messageSends: ["ifFalse:", "nextPutAll:", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "lf", "isEmpty"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportMethod:on:", category: 'output', 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)})}, args: ["aMethod", "aStream"], source: "exportMethod: aMethod on: aStream\x0a\x09aStream\x0a\x09\x09lf; lf; nextPutAll: (self chunkEscape: aMethod source); lf;\x0a\x09\x09nextPutAll: '!'", messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackage:on:", category: 'output', fn: function (aPackage,aStream){ var self=this; return smalltalk.withContext(function($ctx1) { self._exportPackageDefinitionOf_on_(aPackage,aStream); _st(_st(aPackage)._sortedClasses())._do_((function(each){ return smalltalk.withContext(function($ctx2) { self._exportDefinitionOf_on_(each,aStream); self._exportProtocols_on_(self._ownMethodProtocolsOfClass_(each),aStream); self._exportMetaDefinitionOf_on_(each,aStream); return self._exportProtocols_on_(self._ownMethodProtocolsOfClass_(_st(each)._class()),aStream); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); self._exportProtocols_on_(self._extensionProtocolsOfPackage_(aPackage),aStream); return self}, function($ctx1) {$ctx1.fill(self,"exportPackage:on:",{aPackage:aPackage,aStream:aStream},smalltalk.ChunkExporter)})}, args: ["aPackage", "aStream"], source: "exportPackage: aPackage on: aStream\x0a\x0a\x09self exportPackageDefinitionOf: aPackage on: aStream.\x0a\x09\x0a\x09aPackage sortedClasses do: [ :each |\x0a\x09\x09self exportDefinitionOf: each on: aStream.\x0a\x09\x09\x0a\x09\x09self \x0a\x09\x09\x09exportProtocols: (self ownMethodProtocolsOfClass: each)\x0a\x09\x09\x09on: aStream.\x0a\x09\x09\x09\x0a\x09\x09self exportMetaDefinitionOf: each on: aStream.\x0a\x09\x09\x0a\x09\x09self \x0a\x09\x09\x09exportProtocols: (self ownMethodProtocolsOfClass: each class)\x0a\x09\x09\x09on: aStream ].\x0a\x09\x09\x09\x0a\x09self \x0a\x09\x09exportProtocols: (self extensionProtocolsOfPackage: aPackage)\x0a\x09\x09on: aStream", messageSends: ["exportPackageDefinitionOf:on:", "do:", "exportDefinitionOf:on:", "exportProtocols:on:", "ownMethodProtocolsOfClass:", "exportMetaDefinitionOf:on:", "class", "sortedClasses", "extensionProtocolsOfPackage:"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackageDefinitionOf:on:", category: 'output', 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)})}, args: ["aPackage", "aStream"], source: "exportPackageDefinitionOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'Smalltalk current createPackage: ''', aPackage name, '''!';\x0a\x09\x09lf", messageSends: ["nextPutAll:", ",", "name", "lf"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportProtocol:on:", category: 'output', fn: function (aProtocol,aStream){ var self=this; return smalltalk.withContext(function($ctx1) { self._exportProtocolPrologueOf_on_(aProtocol,aStream); _st(_st(aProtocol)._methods())._do_((function(method){ return smalltalk.withContext(function($ctx2) { return self._exportMethod_on_(method,aStream); }, function($ctx2) {$ctx2.fillBlock({method:method},$ctx1)})})); self._exportProtocolEpilogueOf_on_(aProtocol,aStream); return self}, function($ctx1) {$ctx1.fill(self,"exportProtocol:on:",{aProtocol:aProtocol,aStream:aStream},smalltalk.ChunkExporter)})}, args: ["aProtocol", "aStream"], source: "exportProtocol: aProtocol on: aStream\x0a\x09self exportProtocolPrologueOf: aProtocol on: aStream.\x0a\x09aProtocol methods do: [ :method | \x0a\x09\x09self exportMethod: method on: aStream ].\x0a\x09self exportProtocolEpilogueOf: aProtocol on: aStream", messageSends: ["exportProtocolPrologueOf:on:", "do:", "exportMethod:on:", "methods", "exportProtocolEpilogueOf:on:"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportProtocolEpilogueOf:on:", category: 'output', fn: function (aProtocol,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,"exportProtocolEpilogueOf:on:",{aProtocol:aProtocol,aStream:aStream},smalltalk.ChunkExporter)})}, args: ["aProtocol", "aStream"], source: "exportProtocolEpilogueOf: aProtocol on: aStream\x0a\x09aStream nextPutAll: ' !'; lf; lf", messageSends: ["nextPutAll:", "lf"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportProtocolPrologueOf:on:", category: 'output', fn: function (aProtocol,aStream){ var self=this; return smalltalk.withContext(function($ctx1) { var $1,$2; $1=aStream; _st($1)._nextPutAll_("!".__comma(self._classNameFor_(_st(aProtocol)._theClass()))); $2=_st($1)._nextPutAll_(_st(" methodsFor: '".__comma(_st(aProtocol)._name())).__comma("'!")); return self}, function($ctx1) {$ctx1.fill(self,"exportProtocolPrologueOf:on:",{aProtocol:aProtocol,aStream:aStream},smalltalk.ChunkExporter)})}, args: ["aProtocol", "aStream"], source: "exportProtocolPrologueOf: aProtocol on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: '!', (self classNameFor: aProtocol theClass);\x0a\x09\x09nextPutAll: ' methodsFor: ''', aProtocol name, '''!'", messageSends: ["nextPutAll:", ",", "classNameFor:", "theClass", "name"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportProtocols:on:", category: 'output', fn: function (aCollection,aStream){ var self=this; return smalltalk.withContext(function($ctx1) { _st(aCollection)._do_((function(each){ return smalltalk.withContext(function($ctx2) { return self._exportProtocol_on_(each,aStream); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); return self}, function($ctx1) {$ctx1.fill(self,"exportProtocols:on:",{aCollection:aCollection,aStream:aStream},smalltalk.ChunkExporter)})}, args: ["aCollection", "aStream"], source: "exportProtocols: aCollection on: aStream\x0a\x09aCollection do: [ :each |\x0a\x09\x09self exportProtocol: each on: aStream ]", messageSends: ["do:", "exportProtocol:on:"], referencedClasses: [] }), smalltalk.ChunkExporter); smalltalk.addMethod( smalltalk.method({ selector: "ownMethodProtocolsOfClass:", category: 'accessing', fn: function (aClass){ var self=this; function $ExportMethodProtocol(){return smalltalk.ExportMethodProtocol||(typeof ExportMethodProtocol=="undefined"?nil:ExportMethodProtocol)} return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(aClass)._ownProtocols())._collect_((function(each){ return smalltalk.withContext(function($ctx2) { return _st($ExportMethodProtocol())._name_theClass_(each,aClass); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); return $1; }, function($ctx1) {$ctx1.fill(self,"ownMethodProtocolsOfClass:",{aClass:aClass},smalltalk.ChunkExporter)})}, args: ["aClass"], source: "ownMethodProtocolsOfClass: aClass\x0a\x09\x22Answer a collection of ExportMethodProtocol object of aClass that are not package extensions\x22\x0a\x09\x0a\x09^ aClass ownProtocols collect: [ :each |\x0a\x09\x09ExportMethodProtocol name: each theClass: aClass ]", messageSends: ["collect:", "name:theClass:", "ownProtocols"], referencedClasses: ["ExportMethodProtocol"] }), smalltalk.ChunkExporter); smalltalk.addClass('Exporter', smalltalk.AbstractExporter, [], 'Importer-Exporter'); 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.)."; smalltalk.addMethod( smalltalk.method({ selector: "classNameFor:", category: 'convenience', 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)})}, args: ["aClass"], 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 ] ]", messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"], referencedClasses: [] }), smalltalk.Exporter); smalltalk.addMethod( smalltalk.method({ selector: "exportDefinitionOf:on:", category: 'output', 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)})}, args: ["aClass", "aStream"], 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", messageSends: ["lf", "nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "asJavascript", "comment", "notEmpty"], referencedClasses: [] }), smalltalk.Exporter); smalltalk.addMethod( smalltalk.method({ selector: "exportMetaDefinitionOf:on:", category: 'output', 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)})}, args: ["aClass", "aStream"], 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]", messageSends: ["lf", "ifFalse:", "nextPutAll:", ",", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "isEmpty"], referencedClasses: ["String"] }), smalltalk.Exporter); smalltalk.addMethod( smalltalk.method({ selector: "exportMethod:on:", category: 'output', 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)})}, args: ["aMethod", "aStream"], 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", messageSends: ["nextPutAll:", "lf", ",", "asJavascript", "selector", "category", "compiledSource", "fn", "arguments", "source", "messageSends", "referencedClasses", "classNameFor:", "methodClass"], referencedClasses: [] }), smalltalk.Exporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackage:on:", category: 'output', fn: function (aPackage,aStream){ var self=this; return smalltalk.withContext(function($ctx1) { var $1,$2; $1=self; _st($1)._exportPackagePrologueOf_on_(aPackage,aStream); _st($1)._exportPackageDefinitionOf_on_(aPackage,aStream); $2=_st($1)._exportPackageTransportOf_on_(aPackage,aStream); _st(_st(aPackage)._sortedClasses())._do_((function(each){ return smalltalk.withContext(function($ctx2) { self._exportDefinitionOf_on_(each,aStream); _st(_st(each)._ownMethods())._do_((function(method){ return smalltalk.withContext(function($ctx3) { return self._exportMethod_on_(method,aStream); }, function($ctx3) {$ctx3.fillBlock({method:method},$ctx2)})})); self._exportMetaDefinitionOf_on_(each,aStream); return _st(_st(_st(each)._class())._ownMethods())._do_((function(method){ return smalltalk.withContext(function($ctx3) { return self._exportMethod_on_(method,aStream); }, function($ctx3) {$ctx3.fillBlock({method:method},$ctx2)})})); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); _st(self._extensionMethodsOfPackage_(aPackage))._do_((function(each){ return smalltalk.withContext(function($ctx2) { return self._exportMethod_on_(each,aStream); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); self._exportPackageEpilogueOf_on_(aPackage,aStream); return self}, function($ctx1) {$ctx1.fill(self,"exportPackage:on:",{aPackage:aPackage,aStream:aStream},smalltalk.Exporter)})}, args: ["aPackage", "aStream"], source: "exportPackage: aPackage on: aStream\x0a\x09\x0a\x09self \x0a\x09\x09exportPackagePrologueOf: aPackage on: aStream;\x0a\x09\x09exportPackageDefinitionOf: aPackage on: aStream;\x0a\x09\x09exportPackageTransportOf: aPackage on: aStream.\x0a\x09\x0a\x09aPackage sortedClasses do: [ :each |\x0a\x09\x09self exportDefinitionOf: each on: aStream.\x0a\x09\x09each ownMethods do: [ :method |\x0a\x09\x09\x09self exportMethod: method on: aStream ].\x0a\x09\x09\x09\x0a\x09\x09self exportMetaDefinitionOf: each on: aStream.\x0a\x09\x09each class ownMethods do: [ :method |\x0a\x09\x09\x09self exportMethod: method on: aStream ] ].\x0a\x09\x09\x09\x0a\x09(self extensionMethodsOfPackage: aPackage) do: [ :each |\x0a\x09\x09self exportMethod: each on: aStream ].\x0a\x09\x09\x0a\x09self exportPackageEpilogueOf: aPackage on: aStream", messageSends: ["exportPackagePrologueOf:on:", "exportPackageDefinitionOf:on:", "exportPackageTransportOf:on:", "do:", "exportDefinitionOf:on:", "exportMethod:on:", "ownMethods", "exportMetaDefinitionOf:on:", "class", "sortedClasses", "extensionMethodsOfPackage:", "exportPackageEpilogueOf:on:"], referencedClasses: [] }), smalltalk.Exporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackageDefinitionOf:on:", category: 'output', 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)})}, args: ["aPackage", "aStream"], source: "exportPackageDefinitionOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.addPackage(';\x0a\x09\x09nextPutAll: '''', aPackage name, ''');';\x0a\x09\x09lf", messageSends: ["nextPutAll:", ",", "name", "lf"], referencedClasses: [] }), smalltalk.Exporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackageEpilogueOf:on:", category: 'output', 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)})}, args: ["aPackage", "aStream"], source: "exportPackageEpilogueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: '})(global_smalltalk,global_nil,global__st);';\x0a\x09\x09lf", messageSends: ["nextPutAll:", "lf"], referencedClasses: [] }), smalltalk.Exporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackagePrologueOf:on:", category: 'output', 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)})}, args: ["aPackage", "aStream"], source: "exportPackagePrologueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: '(function(smalltalk,nil,_st){';\x0a\x09\x09lf", messageSends: ["nextPutAll:", "lf"], referencedClasses: [] }), smalltalk.Exporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackageTransportOf:on:", category: 'output', 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)})}, args: ["aPackage", "aStream"], 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 ]", messageSends: ["transportJson", "ifFalse:", "nextPutAll:", "asJavascript", "name", "lf", "="], referencedClasses: [] }), smalltalk.Exporter); smalltalk.addClass('AmdExporter', smalltalk.Exporter, [], 'Importer-Exporter'); smalltalk.addMethod( smalltalk.method({ selector: "amdNamesOfPackages:", category: 'private', fn: function (anArray){ var self=this; 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},smalltalk.AmdExporter)})}, args: ["anArray"], source: "amdNamesOfPackages: anArray\x0a\x09^ (anArray\x0a\x09\x09select: [ :each | each amdNamespace notNil ])\x0a\x09\x09collect: [ :each | each amdNamespace, '/', each name ]", messageSends: ["collect:", ",", "name", "amdNamespace", "select:", "notNil"], referencedClasses: [] }), smalltalk.AmdExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackageEpilogueOf:on:", category: 'output', 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)})}, args: ["aPackage", "aStream"], source: "exportPackageEpilogueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: '});';\x0a\x09\x09lf", messageSends: ["nextPutAll:", "lf"], referencedClasses: [] }), smalltalk.AmdExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackagePrologueOf:on:", category: 'output', 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)})}, args: ["aPackage", "aStream"], source: "exportPackagePrologueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'define(\x22';\x0a\x09\x09nextPutAll: (aPackage amdNamespace ifNil: [ 'amber' ]); \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", messageSends: ["nextPutAll:", "ifNil:", "amdNamespace", "name", "asJavascript", ",", "amdNamesOfPackages:", "loadDependencies", "lf"], referencedClasses: [] }), smalltalk.AmdExporter); smalltalk.addClass('ChunkParser', smalltalk.Object, ['stream'], 'Importer-Exporter'); 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"; smalltalk.addMethod( smalltalk.method({ selector: "nextChunk", category: 'reading', 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)})}, args: [], 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", messageSends: ["writeStream", "whileTrue:", "ifTrue:", "ifTrue:ifFalse:", "next", "trimBoth", "contents", "=", "peek", "nextPut:", "notNil"], referencedClasses: [] }), smalltalk.ChunkParser); smalltalk.addMethod( smalltalk.method({ selector: "stream:", category: 'accessing', 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)})}, args: ["aStream"], source: "stream: aStream\x0a\x09stream := aStream", messageSends: [], referencedClasses: [] }), smalltalk.ChunkParser); smalltalk.addMethod( smalltalk.method({ selector: "on:", category: 'instance creation', 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)})}, args: ["aStream"], source: "on: aStream\x0a\x09^self new stream: aStream", messageSends: ["stream:", "new"], referencedClasses: [] }), smalltalk.ChunkParser.klass); smalltalk.addClass('ExportMethodProtocol', smalltalk.Object, ['name', 'theClass'], 'Importer-Exporter'); smalltalk.ExportMethodProtocol.comment="I am an abstraction for a method protocol in a class / metaclass.\x0a\x0aI know of my class, name and methods.\x0aI am used when exporting a package."; smalltalk.addMethod( smalltalk.method({ selector: "methods", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._theClass())._methodsInProtocol_(self._name()); return $1; }, function($ctx1) {$ctx1.fill(self,"methods",{},smalltalk.ExportMethodProtocol)})}, args: [], source: "methods\x0a\x09^ self theClass methodsInProtocol: self name", messageSends: ["methodsInProtocol:", "name", "theClass"], referencedClasses: [] }), smalltalk.ExportMethodProtocol); smalltalk.addMethod( smalltalk.method({ selector: "name", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=self["@name"]; return $1; }, function($ctx1) {$ctx1.fill(self,"name",{},smalltalk.ExportMethodProtocol)})}, args: [], source: "name\x0a\x09^name", messageSends: [], referencedClasses: [] }), smalltalk.ExportMethodProtocol); smalltalk.addMethod( smalltalk.method({ selector: "name:", category: 'accessing', 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.ExportMethodProtocol)})}, args: ["aString"], source: "name: aString\x0a\x09name := aString", messageSends: [], referencedClasses: [] }), smalltalk.ExportMethodProtocol); smalltalk.addMethod( smalltalk.method({ selector: "sortedMethods", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._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,"sortedMethods",{},smalltalk.ExportMethodProtocol)})}, args: [], source: "sortedMethods\x0a\x09^ self methods sorted: [ :a :b | a selector <= b selector ]", messageSends: ["sorted:", "<=", "selector", "methods"], referencedClasses: [] }), smalltalk.ExportMethodProtocol); smalltalk.addMethod( smalltalk.method({ selector: "theClass", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=self["@theClass"]; return $1; }, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.ExportMethodProtocol)})}, args: [], source: "theClass\x0a\x09^theClass", messageSends: [], referencedClasses: [] }), smalltalk.ExportMethodProtocol); smalltalk.addMethod( smalltalk.method({ selector: "theClass:", category: 'accessing', 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.ExportMethodProtocol)})}, args: ["aClass"], source: "theClass: aClass\x0a\x09theClass := aClass", messageSends: [], referencedClasses: [] }), smalltalk.ExportMethodProtocol); smalltalk.addMethod( smalltalk.method({ selector: "name:theClass:", category: 'instance creation', fn: function (aString,aClass){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=self._new(); _st($2)._name_(aString); _st($2)._theClass_(aClass); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"name:theClass:",{aString:aString,aClass:aClass},smalltalk.ExportMethodProtocol.klass)})}, args: ["aString", "aClass"], source: "name: aString theClass: aClass\x0a\x09^self new\x0a\x09\x09name: aString;\x0a\x09\x09theClass: aClass;\x0a\x09\x09yourself", messageSends: ["name:", "new", "theClass:", "yourself"], referencedClasses: [] }), smalltalk.ExportMethodProtocol.klass); smalltalk.addClass('ExportRecipeInterpreter', smalltalk.Object, [], 'Importer-Exporter'); 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 ]"; smalltalk.addMethod( smalltalk.method({ selector: "interpret:for:on:", category: 'interpreting', 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)})}, args: ["aRecipe", "anObject", "aStream"], 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 ]", messageSends: ["readStream", "whileFalse:", "interpretStep:for:on:", "next", "atEnd"], referencedClasses: [] }), smalltalk.ExportRecipeInterpreter); smalltalk.addMethod( smalltalk.method({ selector: "interpretStep:for:on:", category: 'interpreting', 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)})}, args: ["aRecipeStep", "anObject", "aStream"], 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 }", messageSends: ["ifTrue:", "interpretSubRecipe:for:on:", "==", "value", "perform:withArguments:", "key"], referencedClasses: [] }), smalltalk.ExportRecipeInterpreter); smalltalk.addMethod( smalltalk.method({ selector: "interpretSubRecipe:for:on:", category: 'interpreting', 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)})}, args: ["aRecipe", "anObject", "aStream"], 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 ]", messageSends: ["perform:withArguments:", "value", "first", "key", "do:", "interpret:for:on:", "allButFirst"], referencedClasses: [] }), smalltalk.ExportRecipeInterpreter); smalltalk.addClass('Importer', smalltalk.Object, [], 'Importer-Exporter'); smalltalk.Importer.comment="I can import Amber code from a string in the chunk format.\x0a\x0a## API\x0a\x0a Importer new import: aString"; smalltalk.addMethod( smalltalk.method({ selector: "import:", category: 'fileIn', 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)})}, args: ["aStream"], 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]]]", messageSends: ["on:", "whileFalse:", "ifTrue:ifFalse:", "evaluateExpression:", "new", "ifTrue:", "scanFrom:", "isEmpty", "nextChunk", "isNil"], referencedClasses: ["ChunkParser", "Compiler"] }), smalltalk.Importer); smalltalk.addClass('PackageHandler', smalltalk.InterfacingObject, [], 'Importer-Exporter'); 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."; smalltalk.addMethod( smalltalk.method({ selector: "ajaxPutAt:data:", category: 'private', 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)})}, args: ["aURL", "aString"], 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'] }", messageSends: ["ajax:", "->", "error:", ",", "responseText"], referencedClasses: [] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "chunkContentsFor:", category: 'accessing', fn: function (aPackage){ var self=this; function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)} return smalltalk.withContext(function($ctx1) { var $1; $1=_st($String())._streamContents_((function(str){ return smalltalk.withContext(function($ctx2) { return _st(self._chunkExporter())._exportPackage_on_(aPackage,str); }, function($ctx2) {$ctx2.fillBlock({str:str},$ctx1)})})); return $1; }, function($ctx1) {$ctx1.fill(self,"chunkContentsFor:",{aPackage:aPackage},smalltalk.PackageHandler)})}, args: ["aPackage"], source: "chunkContentsFor: aPackage\x0a\x09^ String streamContents: [ :str |\x0a\x09\x09self chunkExporter exportPackage: aPackage on: str ]", messageSends: ["streamContents:", "exportPackage:on:", "chunkExporter"], referencedClasses: ["String"] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "chunkExporter", category: 'factory', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._chunkExporterClass())._default(); return $1; }, function($ctx1) {$ctx1.fill(self,"chunkExporter",{},smalltalk.PackageHandler)})}, args: [], source: "chunkExporter\x0a\x09^ self chunkExporterClass default", messageSends: ["default", "chunkExporterClass"], referencedClasses: [] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "chunkExporterClass", category: 'accessing', fn: function (){ var self=this; function $ChunkExporter(){return smalltalk.ChunkExporter||(typeof ChunkExporter=="undefined"?nil:ChunkExporter)} return smalltalk.withContext(function($ctx1) { var $1; $1=$ChunkExporter(); return $1; }, function($ctx1) {$ctx1.fill(self,"chunkExporterClass",{},smalltalk.PackageHandler)})}, args: [], source: "chunkExporterClass\x0a\x09^ ChunkExporter", messageSends: [], referencedClasses: ["ChunkExporter"] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "commit:", category: 'committing', fn: function (aPackage){ var self=this; return smalltalk.withContext(function($ctx1) { _st([(function(){ return smalltalk.withContext(function($ctx2) { return self._commitStFileFor_(aPackage); }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),(function(){ return smalltalk.withContext(function($ctx2) { return self._commitJsFileFor_(aPackage); }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})])._do_displayingProgress_((function(each){ return smalltalk.withContext(function($ctx2) { return _st(each)._value(); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),"Committing package ".__comma(_st(aPackage)._name())); return self}, function($ctx1) {$ctx1.fill(self,"commit:",{aPackage:aPackage},smalltalk.PackageHandler)})}, args: ["aPackage"], source: "commit: aPackage\x0a\x09{\x0a\x09\x09[ self commitStFileFor: aPackage ].\x0a\x09\x09[ self commitJsFileFor: aPackage ]\x0a\x09}\x0a\x09\x09do: [ :each | each value ]\x0a\x09\x09displayingProgress: 'Committing package ', aPackage name", messageSends: ["do:displayingProgress:", "value", ",", "name", "commitStFileFor:", "commitJsFileFor:"], referencedClasses: [] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "commitJsFileFor:", category: 'committing', fn: function (aPackage){ var self=this; return smalltalk.withContext(function($ctx1) { self._ajaxPutAt_data_(_st(_st(_st(self._commitPathJsFor_(aPackage)).__comma("/")).__comma(_st(aPackage)._name())).__comma(".js"),self._contentsFor_(aPackage)); return self}, function($ctx1) {$ctx1.fill(self,"commitJsFileFor:",{aPackage:aPackage},smalltalk.PackageHandler)})}, args: ["aPackage"], source: "commitJsFileFor: aPackage\x0a\x09self \x0a\x09\x09ajaxPutAt: (self commitPathJsFor: aPackage), '/', aPackage name, '.js'\x0a\x09\x09data: (self contentsFor: aPackage)", messageSends: ["ajaxPutAt:data:", ",", "name", "commitPathJsFor:", "contentsFor:"], referencedClasses: [] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "commitPathJsFor:", category: 'accessing', fn: function (aPackage){ var self=this; return smalltalk.withContext(function($ctx1) { self._subclassResponsibility(); return self}, function($ctx1) {$ctx1.fill(self,"commitPathJsFor:",{aPackage:aPackage},smalltalk.PackageHandler)})}, args: ["aPackage"], source: "commitPathJsFor: aPackage\x0a\x09self subclassResponsibility", messageSends: ["subclassResponsibility"], referencedClasses: [] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "commitPathStFor:", category: 'accessing', fn: function (aPackage){ var self=this; return smalltalk.withContext(function($ctx1) { self._subclassResponsibility(); return self}, function($ctx1) {$ctx1.fill(self,"commitPathStFor:",{aPackage:aPackage},smalltalk.PackageHandler)})}, args: ["aPackage"], source: "commitPathStFor: aPackage\x0a\x09self subclassResponsibility", messageSends: ["subclassResponsibility"], referencedClasses: [] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "commitStFileFor:", category: 'committing', fn: function (aPackage){ var self=this; return smalltalk.withContext(function($ctx1) { self._ajaxPutAt_data_(_st(_st(_st(self._commitPathStFor_(aPackage)).__comma("/")).__comma(_st(aPackage)._name())).__comma(".st"),self._chunkContentsFor_(aPackage)); return self}, function($ctx1) {$ctx1.fill(self,"commitStFileFor:",{aPackage:aPackage},smalltalk.PackageHandler)})}, args: ["aPackage"], source: "commitStFileFor: aPackage\x0a\x09self \x0a\x09\x09ajaxPutAt: (self commitPathStFor: aPackage), '/', aPackage name, '.st'\x0a\x09\x09data: (self chunkContentsFor: aPackage)", messageSends: ["ajaxPutAt:data:", ",", "name", "commitPathStFor:", "chunkContentsFor:"], referencedClasses: [] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "contentsFor:", category: 'accessing', fn: function (aPackage){ var self=this; function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)} return smalltalk.withContext(function($ctx1) { var $1; $1=_st($String())._streamContents_((function(str){ return smalltalk.withContext(function($ctx2) { return _st(self._exporter())._exportPackage_on_(aPackage,str); }, function($ctx2) {$ctx2.fillBlock({str:str},$ctx1)})})); return $1; }, function($ctx1) {$ctx1.fill(self,"contentsFor:",{aPackage:aPackage},smalltalk.PackageHandler)})}, args: ["aPackage"], source: "contentsFor: aPackage\x0a\x09^ String streamContents: [ :str |\x0a\x09\x09self exporter exportPackage: aPackage on: str ]", messageSends: ["streamContents:", "exportPackage:on:", "exporter"], referencedClasses: ["String"] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "exporter", category: 'factory', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._exporterClass())._default(); return $1; }, function($ctx1) {$ctx1.fill(self,"exporter",{},smalltalk.PackageHandler)})}, args: [], source: "exporter\x0a\x09^ self exporterClass default", messageSends: ["default", "exporterClass"], referencedClasses: [] }), smalltalk.PackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "exporterClass", category: 'accessing', fn: function (){ var self=this; function $Exporter(){return smalltalk.Exporter||(typeof Exporter=="undefined"?nil:Exporter)} return smalltalk.withContext(function($ctx1) { var $1; $1=$Exporter(); return $1; }, function($ctx1) {$ctx1.fill(self,"exporterClass",{},smalltalk.PackageHandler)})}, args: [], source: "exporterClass\x0a\x09^ Exporter", messageSends: [], referencedClasses: ["Exporter"] }), smalltalk.PackageHandler); smalltalk.PackageHandler.klass.iVarNames = ['registry']; smalltalk.addMethod( smalltalk.method({ selector: "classRegisteredFor:", category: 'accessing', 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)})}, args: ["aString"], source: "classRegisteredFor: aString\x0a\x09^ registry at: aString", messageSends: ["at:"], referencedClasses: [] }), smalltalk.PackageHandler.klass); smalltalk.addMethod( smalltalk.method({ selector: "for:", category: 'accessing', 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)})}, args: ["aString"], source: "for: aString\x0a\x09^ (self classRegisteredFor: aString) new", messageSends: ["new", "classRegisteredFor:"], referencedClasses: [] }), smalltalk.PackageHandler.klass); smalltalk.addMethod( smalltalk.method({ selector: "initialize", category: 'initialization', 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)})}, args: [], source: "initialize\x0a\x09super initialize.\x0a\x09registry := #{}", messageSends: ["initialize"], referencedClasses: [] }), smalltalk.PackageHandler.klass); smalltalk.addMethod( smalltalk.method({ selector: "register:for:", category: 'registry', 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)})}, args: ["aClass", "aString"], source: "register: aClass for: aString\x0a\x09registry at: aString put: aClass", messageSends: ["at:put:"], referencedClasses: [] }), smalltalk.PackageHandler.klass); smalltalk.addMethod( smalltalk.method({ selector: "registerFor:", category: 'registry', 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)})}, args: ["aString"], source: "registerFor: aString\x0a\x09PackageHandler register: self for: aString", messageSends: ["register:for:"], referencedClasses: ["PackageHandler"] }), smalltalk.PackageHandler.klass); smalltalk.addClass('AmdPackageHandler', smalltalk.PackageHandler, [], 'Importer-Exporter'); 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."; smalltalk.addMethod( smalltalk.method({ selector: "commitPathJsFor:", category: 'accessing', 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)})}, args: ["aPackage"], source: "commitPathJsFor: aPackage\x0a\x09^self toUrl: (self namespaceFor: aPackage)", messageSends: ["toUrl:", "namespaceFor:"], referencedClasses: [] }), smalltalk.AmdPackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "commitPathStFor:", category: 'accessing', 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)})}, args: ["aPackage"], source: "commitPathStFor: aPackage\x0a\x09\x22if _source is not mapped, .st commit will likely fail\x22\x0a\x09^self toUrl: (self namespaceFor: aPackage), '/_source'.", messageSends: ["toUrl:", ",", "namespaceFor:"], referencedClasses: [] }), smalltalk.AmdPackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "exporterClass", category: 'accessing', fn: function (){ var self=this; function $AmdExporter(){return smalltalk.AmdExporter||(typeof AmdExporter=="undefined"?nil:AmdExporter)} return smalltalk.withContext(function($ctx1) { var $1; $1=$AmdExporter(); return $1; }, function($ctx1) {$ctx1.fill(self,"exporterClass",{},smalltalk.AmdPackageHandler)})}, args: [], source: "exporterClass\x0a\x09^ AmdExporter", messageSends: [], referencedClasses: ["AmdExporter"] }), smalltalk.AmdPackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "namespaceFor:", category: 'committing', 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)})}, args: ["aPackage"], source: "namespaceFor: aPackage\x0a\x09^ aPackage amdNamespace\x0a\x09\x09ifNil: [ aPackage amdNamespace: self class defaultNamespace; amdNamespace ]", messageSends: ["ifNil:", "amdNamespace:", "defaultNamespace", "class", "amdNamespace"], referencedClasses: [] }), smalltalk.AmdPackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "toUrl:", category: 'private', 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)})}, args: ["aString"], 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 ]", messageSends: ["ifNil:ifNotNil:", "error:", "value:", "basicAt:", "amdRequire", "current"], referencedClasses: ["Smalltalk"] }), smalltalk.AmdPackageHandler); smalltalk.addMethod( smalltalk.method({ selector: "defaultNamespace", category: 'commit paths', 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)})}, args: [], source: "defaultNamespace\x0a\x09^ Smalltalk current defaultAMDNamespace", messageSends: ["defaultAMDNamespace", "current"], referencedClasses: ["Smalltalk"] }), smalltalk.AmdPackageHandler.klass); smalltalk.addMethod( smalltalk.method({ selector: "defaultNamespace:", category: 'commit paths', 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)})}, args: ["aString"], source: "defaultNamespace: aString\x0a\x09Smalltalk current defaultAMDNamespace: aString", messageSends: ["defaultAMDNamespace:", "current"], referencedClasses: ["Smalltalk"] }), smalltalk.AmdPackageHandler.klass); smalltalk.addMethod( smalltalk.method({ selector: "initialize", category: 'initialization', 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)})}, args: [], source: "initialize\x0a\x09super initialize.\x0a\x09self registerFor: 'amd'", messageSends: ["initialize", "registerFor:"], referencedClasses: [] }), smalltalk.AmdPackageHandler.klass); smalltalk.addMethod( smalltalk.method({ selector: "resetCommitPaths", category: 'commit paths', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { self["@defaultNamespace"]=nil; return self}, function($ctx1) {$ctx1.fill(self,"resetCommitPaths",{},smalltalk.AmdPackageHandler.klass)})}, args: [], source: "resetCommitPaths\x0a\x09defaultNamespace := nil", messageSends: [], referencedClasses: [] }), smalltalk.AmdPackageHandler.klass); smalltalk.addClass('PluggableExporter', smalltalk.Object, ['recipe'], 'Importer-Exporter'); 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:)"; smalltalk.addMethod( smalltalk.method({ selector: "exportAllPackages", category: 'fileOut', 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)})}, args: [], 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]]", messageSends: ["streamContents:", "do:", "exportPackage:on:", "packages", "current"], referencedClasses: ["Smalltalk", "String"] }), smalltalk.PluggableExporter); smalltalk.addMethod( smalltalk.method({ selector: "exportPackage:on:", category: 'fileOut', 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)})}, args: ["aPackage", "aStream"], source: "exportPackage: aPackage on: aStream\x0a\x09self interpreter interpret: self recipe for: aPackage on: aStream", messageSends: ["interpret:for:on:", "recipe", "interpreter"], referencedClasses: [] }), smalltalk.PluggableExporter); smalltalk.addMethod( smalltalk.method({ selector: "interpreter", category: 'accessing', 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)})}, args: [], source: "interpreter\x0a\x09^ ExportRecipeInterpreter new", messageSends: ["new"], referencedClasses: ["ExportRecipeInterpreter"] }), smalltalk.PluggableExporter); smalltalk.addMethod( smalltalk.method({ selector: "recipe", category: 'accessing', 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)})}, args: [], source: "recipe\x0a\x09^recipe", messageSends: [], referencedClasses: [] }), smalltalk.PluggableExporter); smalltalk.addMethod( smalltalk.method({ selector: "recipe:", category: 'accessing', 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)})}, args: ["anArray"], source: "recipe: anArray\x0a\x09recipe := anArray", messageSends: [], referencedClasses: [] }), smalltalk.PluggableExporter); smalltalk.addMethod( smalltalk.method({ selector: "forRecipe:", category: 'instance creation', 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)})}, args: ["aRecipe"], source: "forRecipe: aRecipe\x0a\x09^self new recipe: aRecipe; yourself", messageSends: ["recipe:", "new", "yourself"], referencedClasses: [] }), smalltalk.PluggableExporter.klass); smalltalk.addMethod( smalltalk.method({ selector: "ownClassesOfPackage:", category: 'convenience', 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)})}, args: ["package"], source: "ownClassesOfPackage: package\x0a\x09\x22Export classes in dependency order.\x0a\x09Update (issue #171): Remove duplicates for export\x22\x0a\x09^package sortedClasses asSet", messageSends: ["asSet", "sortedClasses"], referencedClasses: [] }), smalltalk.PluggableExporter.klass); smalltalk.addMethod( smalltalk.method({ selector: "amdNamespace", category: '*Importer-Exporter', 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)})}, args: [], source: "amdNamespace\x0a\x09", messageSends: [], referencedClasses: [] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "amdNamespace:", category: '*Importer-Exporter', 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)})}, args: ["aString"], 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>", messageSends: [], referencedClasses: [] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "commit", category: '*Importer-Exporter', 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)})}, args: [], source: "commit\x0a\x09^ self handler commit: self", messageSends: ["commit:", "handler"], referencedClasses: [] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "commitPathJs", category: '*Importer-Exporter', 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)})}, args: [], source: "commitPathJs\x0a\x09^ (extension ifNil: [ extension := #{} ]) at: #commitPathJs ifAbsent: [ self handler commitPathJsFor: self ]", messageSends: ["at:ifAbsent:", "commitPathJsFor:", "handler", "ifNil:"], referencedClasses: [] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "commitPathJs:", category: '*Importer-Exporter', 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)})}, args: ["aString"], source: "commitPathJs: aString\x0a\x09^ (extension ifNil: [ extension := #{} ]) at: #commitPathJs put: aString", messageSends: ["at:put:", "ifNil:"], referencedClasses: [] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "commitPathSt", category: '*Importer-Exporter', 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)})}, args: [], source: "commitPathSt\x0a\x09^ (extension ifNil: [ extension := #{} ]) at: #commitPathSt ifAbsent: [ self handler commitPathStFor: self ]", messageSends: ["at:ifAbsent:", "commitPathStFor:", "handler", "ifNil:"], referencedClasses: [] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "commitPathSt:", category: '*Importer-Exporter', 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)})}, args: ["aString"], source: "commitPathSt: aString\x0a\x09^ (extension ifNil: [ extension := #{} ]) at: #commitPathSt put: aString", messageSends: ["at:put:", "ifNil:"], referencedClasses: [] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "handler", category: '*Importer-Exporter', 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)})}, args: [], source: "handler\x0a\x09^ PackageHandler for: self transportType", messageSends: ["for:", "transportType"], referencedClasses: ["PackageHandler"] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "transportJson", category: '*Importer-Exporter', 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)})}, args: [], source: "transportJson\x0a\x09", messageSends: [], referencedClasses: [] }), smalltalk.Package); smalltalk.addMethod( smalltalk.method({ selector: "transportType", category: '*Importer-Exporter', 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)})}, args: [], source: "transportType\x0a\x09", messageSends: [], referencedClasses: [] }), smalltalk.Package); });