|
@@ -29,16 +29,25 @@ category: 'exporting-output',
|
|
|
fn: function (aPackage,aStream){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
-var $1,$2;
|
|
|
+var $1,$2,$4,$3,$5;
|
|
|
$1=aStream;
|
|
|
-_st($1)._nextPutAll_("define(\x22amber/");
|
|
|
+_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, [\x22amber_vm/smalltalk\x22,\x22amber_vm/nil\x22,\x22amber_vm/_st\x22], function(smalltalk,nil,_st){");
|
|
|
-$2=_st($1)._lf();
|
|
|
+$5=_st($1)._lf();
|
|
|
return self}, function($ctx1) {$ctx1.fill(self,"exportPackagePrologueOf:on:",{aPackage:aPackage,aStream:aStream},smalltalk.AmdExporter.klass)})},
|
|
|
args: ["aPackage", "aStream"],
|
|
|
-source: "exportPackagePrologueOf: aPackage on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'define(\x22amber/';\x0a\x09\x09nextPutAll: aPackage name;\x0a\x09\x09nextPutAll: '\x22, [\x22amber_vm/smalltalk\x22,\x22amber_vm/nil\x22,\x22amber_vm/_st\x22], function(smalltalk,nil,_st){';\x0a\x09\x09lf",
|
|
|
-messageSends: ["nextPutAll:", "name", "lf"],
|
|
|
+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, [\x22amber_vm/smalltalk\x22,\x22amber_vm/nil\x22,\x22amber_vm/_st\x22], function(smalltalk,nil,_st){';\x0a\x09\x09lf",
|
|
|
+messageSends: ["nextPutAll:", "ifNil:", "amdNamespace", "name", "lf"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
smalltalk.AmdExporter.klass);
|