123456789101112131415161718192021222324252627282930 |
- smalltalk.addClass('MyScript', smalltalk.Object, [], 'MyScript');
- smalltalk.addMethod(
- '_main',
- smalltalk.method({
- selector: 'main',
- category: 'main',
- fn: function (){
- var self=this;
- var class=nil;
- var compiler=nil;
- var method=nil;
- smalltalk.send((smalltalk.Object || Object), "_subclass_instanceVariableNames_category_", ["Dummy", "", "Dummy"]);
- class=smalltalk.send((typeof smalltalk == 'undefined' ? nil : smalltalk), "_at_", ["Dummy"]);
- compiler=smalltalk.send((smalltalk.Compiler || Compiler), "_new", []);
- method=smalltalk.send(compiler, "_load_forClass_", [unescape("foo%20%5E%2010"), class]);
- smalltalk.send(method, "_category_", ["foo"]);
- smalltalk.send(class, "_addCompiledMethod_", [method]);
- method=smalltalk.send(compiler, "_load_forClass_", [unescape("bar%20%5E%20self%20foo%20*%202"), class]);
- smalltalk.send(method, "_category_", ["foo"]);
- smalltalk.send(class, "_addCompiledMethod_", [method]);
- smalltalk.send((typeof console == 'undefined' ? nil : console), "_log_", [smalltalk.send(smalltalk.send((smalltalk.Exporter || Exporter), "_new", []), "_exportCategory_", ["Dummy"])]);
- return self;},
- source: unescape('main%0A%09%7C%20class%20compiler%20method%20%7C%0A%09Object%20subclass%3A%20%23Dummy%20instanceVariableNames%3A%20%27%27%20category%3A%20%27Dummy%27.%0A%09class%20%3A%3D%20smalltalk%20at%3A%20%23Dummy.%09%0A%09compiler%20%3A%3D%20Compiler%20new.%0A%0A%09method%20%3A%3D%20compiler%20load%3A%20%27foo%20%5E%2010%27%20forClass%3A%20class.%0A%09method%20category%3A%20%27foo%27.%0A%09class%20addCompiledMethod%3A%20method.%0A%0A%09method%20%3A%3D%20compiler%20load%3A%20%27bar%20%5E%20self%20foo%20*%202%27%20forClass%3A%20class.%0A%09method%20category%3A%20%27foo%27.%0A%09class%20addCompiledMethod%3A%20method.%0A%0A%09console%20log%3A%20%28Exporter%20new%20exportCategory%3A%20%27Dummy%27%29'),
- messageSends: ["subclass:instanceVariableNames:category:", "at:", "new", "load:forClass:", "category:", "addCompiledMethod:", "log:", "exportCategory:"],
- referencedClasses: [smalltalk.Object,smalltalk.Compiler,smalltalk.Exporter]
- }),
- smalltalk.MyScript.klass);
|