12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157 |
- define("amber/boot", [ 'require', './browser-compatibility' ], function (require) {
-
- function Brikz(api, apiKey, initKey) {
- var brikz = this, backup = {};
- apiKey = apiKey || 'exports';
- initKey = initKey || '__init__';
- function mixin(src, target, what) {
- for (var keys = Object.keys(what||src), l=keys.length, i=0; i<l; ++i) {
- if (src == null) { target[keys[i]] = undefined; } else {
- var value = src[keys[i]];
- if (typeof value !== "undefined") { target[keys[i]] = value; }
- }
- }
- return target;
- }
- var d={value: null, enumerable: false, configurable: true, writable: true};
- Object.defineProperties(this, { ensure: d, rebuild: d });
- var exclude = mixin(this, {});
- this.rebuild = function () {
- Object.keys(backup).forEach(function (key) {
- mixin(null, api, (backup[key]||0)[apiKey]||{});
- });
- var oapi = mixin(api, {}), order = [], chk = {};
- brikz.ensure = function(key) {
- if (key in exclude) { return null; }
- var b = brikz[key], bak = backup[key];
- mixin(null, api, api);
- while (typeof b === "function") { b = new b(brikz, api, bak); }
- if (b && !chk[key]) { chk[key]=true; order.push(b); }
- if (b && !b[apiKey]) { b[apiKey] = mixin(api, {}); }
- brikz[key] = b;
- return b;
- };
- Object.keys(brikz).forEach(function (key) { brikz.ensure(key); });
- brikz.ensure = null;
- mixin(oapi, mixin(null, api, api));
- order.forEach(function(brik) { mixin(brik[apiKey] || {}, api); });
- order.forEach(function(brik) { if (brik[initKey]) brik[initKey](); });
- backup = mixin(brikz, {});
- };
- }
-
- function inherits(child, parent) {
- child.prototype = Object.create(parent.prototype, {
- constructor: { value: child,
- enumerable: false, configurable: true, writable: true }
- });
- return child;
- }
- var globals = {};
- globals.SmalltalkSettings = {};
- var api = {};
- var brikz = new Brikz(api);
- function RootBrik(brikz, st) {
-
-
- function SmalltalkRoot() {}
- function SmalltalkProtoObject() {}
- inherits(SmalltalkProtoObject, SmalltalkRoot);
- function SmalltalkObject() {}
- inherits(SmalltalkObject, SmalltalkProtoObject);
- function SmalltalkNil() {}
- inherits(SmalltalkNil, SmalltalkObject);
- this.Object = SmalltalkObject;
- this.nil = new SmalltalkNil();
-
-
-
-
-
- Object.defineProperty(this.nil, 'isNil', {
- value: true,
- enumerable: false, configurable: false, writable: false
- });
-
- this.rootAsClass = {fn: SmalltalkRoot};
- this.__init__ = function () {
- st.addPackage("Kernel-Objects");
- st.wrapClassName("ProtoObject", "Kernel-Objects", SmalltalkProtoObject, undefined, false);
- st.wrapClassName("Object", "Kernel-Objects", SmalltalkObject, globals.ProtoObject, false);
- st.wrapClassName("UndefinedObject", "Kernel-Objects", SmalltalkNil, globals.Object, false);
- };
- }
- function OrganizeBrik(brikz, st) {
- brikz.ensure("augments");
- var SmalltalkObject = brikz.ensure("root").Object;
- function SmalltalkOrganizer () {}
- function SmalltalkPackageOrganizer () {
- this.elements = [];
- }
- function SmalltalkClassOrganizer () {
- this.elements = [];
- }
- inherits(SmalltalkOrganizer, SmalltalkObject);
- inherits(SmalltalkPackageOrganizer, SmalltalkOrganizer);
- inherits(SmalltalkClassOrganizer, SmalltalkOrganizer);
- this.__init__ = function () {
- st.addPackage("Kernel-Infrastructure");
- st.wrapClassName("Organizer", "Kernel-Infrastructure", SmalltalkOrganizer, globals.Object, false);
- st.wrapClassName("PackageOrganizer", "Kernel-Infrastructure", SmalltalkPackageOrganizer, globals.Organizer, false);
- st.wrapClassName("ClassOrganizer", "Kernel-Infrastructure", SmalltalkClassOrganizer, globals.Organizer, false);
- };
- this.setupClassOrganization = function (klass) {
- klass.organization = new SmalltalkClassOrganizer();
- klass.organization.theClass = klass;
- };
- this.setupPackageOrganization = function (pkg) {
- pkg.organization = new SmalltalkPackageOrganizer();
- };
- this.addOrganizationElement = function (owner, element) {
- owner.organization.elements.addElement(element);
- };
- this.removeOrganizationElement = function (owner, element) {
- owner.organization.elements.removeElement(element);
- };
- }
- function DNUBrik(brikz, st) {
- brikz.ensure("selectorConversion");
- brikz.ensure("messageSend");
- var manip = brikz.ensure("manipulation");
- var rootAsClass = brikz.ensure("root").rootAsClass;
-
- var methods = [], methodDict = Object.create(null);
- this.selectors = [];
- this.jsSelectors = [];
- this.get = function (stSelector) {
- var method = methodDict[stSelector];
- if(method) {
- return method;
- }
- var jsSelector = st.st2js(stSelector);
- this.selectors.push(stSelector);
- this.jsSelectors.push(jsSelector);
- method = {jsSelector: jsSelector, fn: createHandler(stSelector)};
- methodDict[stSelector] = method;
- methods.push(method);
- manip.installMethod(method, rootAsClass);
- return method;
- };
-
- function createHandler(stSelector) {
- return function() {
- return brikz.messageSend.messageNotUnderstood(this, stSelector, arguments);
- };
- }
- }
- function ClassInitBrik(brikz, st) {
- var dnu = brikz.ensure("dnu");
- var manip = brikz.ensure("manipulation");
-
- st.init = function(klass) {
- initClass(klass);
- if(klass.klass && !klass.meta) {
- initClass(klass.klass);
- }
- };
- function initClass(klass) {
- if(klass.wrapped) {
- copySuperclass(klass);
- }
- }
- this.initClass = initClass;
- function copySuperclass(klass) {
- var superclass = klass.superclass,
- localMethods = klass.methods,
- protectedJsSelectors = {};
- Object.keys(localMethods).forEach(function (each) {
- protectedJsSelectors[localMethods[each].jsSelector] = true;
- });
- var superproto = superclass.fn.prototype;
- dnu.jsSelectors.forEach(function (selector) {
- if (!protectedJsSelectors[selector]) {
- manip.installMethod({
- jsSelector: selector,
- fn: superproto[selector]
- }, klass);
- }
- });
- }
- }
- function ManipulationBrik(brikz, st) {
- this.installMethodIfAbsent = function (handler, klass) {
- if(!klass.fn.prototype[handler.jsSelector]) {
- installMethod(handler, klass);
- }
- };
- function installMethod (method, klass) {
- Object.defineProperty(klass.fn.prototype, method.jsSelector, {
- value: method.fn,
- enumerable: false, configurable: true, writable: true
- });
- }
- this.installMethod = installMethod;
- }
- function PackagesBrik(brikz, st) {
- var org = brikz.ensure("organize");
- var root = brikz.ensure("root");
- var nil = root.nil;
- var SmalltalkObject = root.Object;
- function SmalltalkPackage() {}
- inherits(SmalltalkPackage, SmalltalkObject);
- this.__init__ = function () {
- st.addPackage("Kernel-Infrastructure");
- st.wrapClassName("Package", "Kernel-Infrastructure", SmalltalkPackage, globals.Object, false);
- };
- st.packages = {};
-
- function pkg(spec) {
- var that = new SmalltalkPackage();
- that.pkgName = spec.pkgName;
- org.setupPackageOrganization(that);
- that.properties = spec.properties || {};
- return that;
- }
-
- st.addPackage = function(pkgName, properties) {
- if(!pkgName) {return nil;}
- if(!(st.packages[pkgName])) {
- st.packages[pkgName] = pkg({
- pkgName: pkgName,
- properties: properties
- });
- } else {
- if(properties) {
- st.packages[pkgName].properties = properties;
- }
- }
- return st.packages[pkgName];
- };
- }
- function ClassesBrik(brikz, st) {
- var org = brikz.ensure("organize");
- var root = brikz.ensure("root");
- var classInit = brikz.ensure("classInit");
- var nil = root.nil;
- var rootAsClass = root.rootAsClass;
- var SmalltalkObject = root.Object;
- rootAsClass.klass = {fn: SmalltalkClass};
- function SmalltalkBehavior() {}
- function SmalltalkClass() {}
- function SmalltalkMetaclass() {}
- inherits(SmalltalkBehavior, SmalltalkObject);
- inherits(SmalltalkClass, SmalltalkBehavior);
- inherits(SmalltalkMetaclass, SmalltalkBehavior);
- SmalltalkMetaclass.prototype.meta = true;
- this.__init__ = function () {
- st.addPackage("Kernel-Classes");
- st.wrapClassName("Behavior", "Kernel-Classes", SmalltalkBehavior, globals.Object, false);
- st.wrapClassName("Metaclass", "Kernel-Classes", SmalltalkMetaclass, globals.Behavior, false);
- st.wrapClassName("Class", "Kernel-Classes", SmalltalkClass, globals.Behavior, false);
-
- globals.ProtoObject.klass.superclass = rootAsClass.klass = globals.Class;
- addSubclass(globals.ProtoObject.klass);
- };
-
- var classes = [];
- var wrappedClasses = [];
-
- function klass(spec) {
- spec = spec || {};
- var setSuperClass = spec.superclass;
- if(!spec.superclass) {
- spec.superclass = rootAsClass;
- }
- var meta = metaclass(spec);
- var that = meta.instanceClass;
- that.superclass = setSuperClass;
- that.fn = spec.fn || inherits(function () {}, spec.superclass.fn);
- that.subclasses = [];
- setupClass(that, spec);
- that.className = spec.className;
- that.wrapped = spec.wrapped || false;
- meta.className = spec.className + ' class';
- meta.superclass = spec.superclass.klass;
- return that;
- }
- function metaclass(spec) {
- spec = spec || {};
- var that = new SmalltalkMetaclass();
- that.fn = inherits(function () {}, spec.superclass.klass.fn);
- that.instanceClass = new that.fn();
- setupClass(that);
- return that;
- }
- SmalltalkBehavior.prototype.toString = function () {
- return 'Smalltalk ' + this.className;
- };
- function wireKlass(klass) {
- Object.defineProperty(klass.fn.prototype, "klass", {
- value: klass,
- enumerable: false, configurable: true, writable: true
- });
- }
- function setupClass(klass, spec) {
- spec = spec || {};
- klass.iVarNames = spec.iVarNames || [];
- klass.pkg = spec.pkg;
- org.setupClassOrganization(klass);
- Object.defineProperty(klass, "methods", {
- value: Object.create(null),
- enumerable: false, configurable: true, writable: true
- });
- wireKlass(klass);
- }
-
- st.addClass = function(className, superclass, iVarNames, pkgName) {
-
-
- if (typeof superclass == 'undefined' || superclass == nil) {
- console.warn('Compiling ' + className + ' as a subclass of `nil`. A dependency might be missing.');
- }
- rawAddClass(pkgName, className, superclass, iVarNames, false, null);
- };
- function rawAddClass(pkgName, className, superclass, iVarNames, wrapped, fn) {
- var pkg = st.packages[pkgName];
- if (!pkg) {
- throw new Error("Missing package "+pkgName);
- }
- if (!superclass || superclass == nil) { superclass = null; }
- if(globals[className] && globals[className].superclass == superclass) {
-
- globals[className].iVarNames = iVarNames || [];
- if (pkg) globals[className].pkg = pkg;
- if (fn) {
- fn.prototype = globals[className].fn.prototype;
- globals[className].fn = fn;
- fn.prototype.constructor = fn;
- }
- } else {
- if(globals[className]) {
- st.removeClass(globals[className]);
- }
- globals[className] = klass({
- className: className,
- superclass: superclass,
- pkg: pkg,
- iVarNames: iVarNames,
- fn: fn,
- wrapped: wrapped
- });
- addSubclass(globals[className]);
- }
- classes.addElement(globals[className]);
- org.addOrganizationElement(pkg, globals[className]);
- }
- st.removeClass = function(klass) {
- org.removeOrganizationElement(klass.pkg, klass);
- classes.removeElement(klass);
- removeSubclass(klass);
- delete globals[klass.className];
- };
- function addSubclass(klass) {
- if(klass.superclass) {
- klass.superclass.subclasses.addElement(klass);
- }
- }
- function removeSubclass(klass) {
- if(klass.superclass) {
- klass.superclass.subclasses.removeElement(klass);
- }
- }
-
- st.wrapClassName = function(className, pkgName, fn, superclass, wrapped) {
- wrapped = wrapped !== false;
- rawAddClass(pkgName, className, superclass, globals[className] && globals[className].iVarNames, wrapped, fn);
- if(wrapped) {
- wrappedClasses.addElement(globals[className]);
- }
- };
-
- st.setClassConstructor = function(klass, constructor) {
- wrappedClasses.addElement(klass);
- klass.wrapped = true;
- klass.fn = constructor;
- // The fn property changed. We need to add back the klass property to the prototype
- wireKlass(klass);
- classInit.initClass(klass);
- };
- /* Create an alias for an existing class */
- st.alias = function(klass, alias) {
- globals[alias] = klass;
- };
-
-
- st.classes = function() {
- return classes;
- };
- st.wrappedClasses = function() {
- return wrappedClasses;
- };
-
-
- st.allSubclasses = function(klass) {
- return klass._allSubclasses();
- };
- }
- function MethodsBrik(brikz, st) {
- var manip = brikz.ensure("manipulation");
- var org = brikz.ensure("organize");
- var stInit = brikz.ensure("stInit");
- var dnu = brikz.ensure("dnu");
- var SmalltalkObject = brikz.ensure("root").Object;
- brikz.ensure("selectorConversion");
- brikz.ensure("classes");
- function SmalltalkMethod() {}
- inherits(SmalltalkMethod, SmalltalkObject);
- this.__init__ = function () {
- st.addPackage("Kernel-Methods");
- st.wrapClassName("CompiledMethod", "Kernel-Methods", SmalltalkMethod, globals.Object, false);
- };
-
- st.method = function(spec) {
- var that = new SmalltalkMethod();
- that.selector = spec.selector;
- that.jsSelector = spec.jsSelector;
- that.args = spec.args || {};
- that.protocol = spec.protocol;
- that.source = spec.source;
- that.messageSends = spec.messageSends || [];
- that.referencedClasses = spec.referencedClasses || [];
- that.fn = spec.fn;
- return that;
- };
- function installNewDnuHandler(newHandler) {
- var wrappedClasses = st.wrappedClasses();
- for(var i = 0; i < wrappedClasses.length; i++) {
- manip.installMethodIfAbsent(newHandler, wrappedClasses[i]);
- }
- }
- function ensureJsSelector(method) {
- if (!(method.jsSelector)) {
- method.jsSelector = st.st2js(method.selector);
- }
- }
-
- st.addMethod = function (method, klass) {
- ensureJsSelector(method);
- manip.installMethod(method, klass);
- klass.methods[method.selector] = method;
- method.methodClass = klass;
-
-
- org.addOrganizationElement(klass, method.protocol);
- propagateMethodChange(klass, method);
- var usedSelectors = method.messageSends;
- var dnuHandlers = [];
- dnuHandlers.push(dnu.get(method.selector));
- for(var i=0; i<usedSelectors.length; i++) {
- dnuHandlers.push(dnu.get(usedSelectors[i]));
- }
- if(stInit.initialized()) {
- dnuHandlers.forEach(function(each) {
- installNewDnuHandler(each);
- });
- }
- };
- function propagateMethodChange(klass, method) {
-
-
-
-
- if (stInit.initialized()) {
- st.allSubclasses(klass).forEach(function (subclass) {
- initMethodInClass(subclass, method);
- });
- }
- }
- function initMethodInClass (klass, method) {
- if (klass.wrapped && !klass.methods[method.selector]) {
- var jsSelector = method.jsSelector;
- manip.installMethod({
- jsSelector: jsSelector,
- fn: klass.superclass.fn.prototype[jsSelector]
- }, klass);
- }
- }
- st.removeMethod = function(method, klass) {
- if (klass !== method.methodClass) {
- throw new Error(
- "Refusing to remove method " +
- method.methodClass.className + ">>" + method.selector +
- " from different class " +
- klass.className);
- }
- ensureJsSelector(method);
- delete klass.fn.prototype[method.jsSelector];
- delete klass.methods[method.selector];
- initMethodInClass(klass, method);
- propagateMethodChange(klass, method);
-
-
- };
-
- st.allSelectors = function() {
- return dnu.selectors;
- };
- }
- function AugmentsBrik(brikz, st) {
-
- Array.prototype.addElement = function(el) {
- if(typeof el === 'undefined') { return; }
- if(this.indexOf(el) == -1) {
- this.push(el);
- }
- };
- Array.prototype.removeElement = function(el) {
- var i = this.indexOf(el);
- if (i !== -1) { this.splice(i, 1); }
- };
- }
- function SmalltalkInitBrik(brikz, st) {
- brikz.ensure("classInit");
- brikz.ensure("classes");
- var initialized = false;
-
- st.initialize = function() {
- if(initialized) { return; }
- st.classes().forEach(function(klass) {
- st.init(klass);
- });
- runnable();
- st.classes().forEach(function(klass) {
- klass._initialize();
- });
- initialized = true;
- };
- this.initialized = function () {
- return initialized;
- };
- this.__init__ = function () {
- st.addPackage("Kernel-Methods");
- st.wrapClassName("Number", "Kernel-Objects", Number, globals.Object);
- st.wrapClassName("BlockClosure", "Kernel-Methods", Function, globals.Object);
- st.wrapClassName("Boolean", "Kernel-Objects", Boolean, globals.Object);
- st.wrapClassName("Date", "Kernel-Objects", Date, globals.Object);
- st.addPackage("Kernel-Collections");
- st.addClass("Collection", globals.Object, null, "Kernel-Collections");
- st.addClass("IndexableCollection", globals.Collection, null, "Kernel-Collections");
- st.addClass("SequenceableCollection", globals.IndexableCollection, null, "Kernel-Collections");
- st.addClass("CharacterArray", globals.SequenceableCollection, null, "Kernel-Collections");
- st.wrapClassName("String", "Kernel-Collections", String, globals.CharacterArray);
- st.wrapClassName("Array", "Kernel-Collections", Array, globals.SequenceableCollection);
- st.wrapClassName("RegularExpression", "Kernel-Collections", RegExp, globals.Object);
- st.addPackage("Kernel-Exceptions");
- st.wrapClassName("Error", "Kernel-Exceptions", Error, globals.Object);
-
- st.alias(globals.Array, "OrderedCollection");
- st.alias(globals.Date, "Time");
- };
- }
- function PrimitivesBrik(brikz, st) {
-
- var oid = 0;
- st.nextId = function() {
- oid += 1;
- return oid;
- };
-
- st.readJSObject = function(js) {
- var readObject = js.constructor === Object;
- var readArray = js.constructor === Array;
- var object = readObject ? globals.Dictionary._new() : readArray ? [] : js;
- for(var i in js) {
- if(readObject) {
- object._at_put_(i, st.readJSObject(js[i]));
- }
- if(readArray) {
- object[i] = st.readJSObject(js[i]);
- }
- }
- return object;
- };
-
- st.assert = function(shouldBeBoolean) {
-
- if (undefined !== shouldBeBoolean && shouldBeBoolean.klass === globals.Boolean) {
- return shouldBeBoolean == true;
- } else {
- globals.NonBooleanReceiver._new()._object_(shouldBeBoolean)._signal();
- }
- };
-
-
-
-
-
- st.reservedWords = ['break', 'case', 'catch', 'continue', 'debugger',
- 'default', 'delete', 'do', 'else', 'finally', 'for', 'function',
- 'if', 'in', 'instanceof', 'new', 'return', 'switch', 'this', 'throw',
- 'try', 'typeof', 'var', 'void', 'while', 'with',
-
- 'arguments',
-
- 'class', 'const', 'enum', 'export', 'extends', 'import', 'super',
-
- 'implements', 'interface', 'let', 'package', 'private', 'protected',
- 'public', 'static', 'yield'];
- st.globalJsVariables = ['jQuery', 'window', 'document', 'process', 'global'];
- }
- function RuntimeBrik(brikz, st) {
- brikz.ensure("selectorConversion");
- var root = brikz.ensure("root");
- var nil = root.nil;
- var SmalltalkObject = root.Object;
- function SmalltalkMethodContext(home, setup) {
- this.sendIdx = {};
- this.homeContext = home;
- this.setup = setup || function() {};
- this.supercall = false;
- }
- inherits(SmalltalkMethodContext, SmalltalkObject);
- this.__init__ = function () {
- st.addPackage("Kernel-Methods");
- st.wrapClassName("MethodContext", "Kernel-Methods", SmalltalkMethodContext, globals.Object, false);
-
- SmalltalkMethodContext.prototype.locals = {};
- SmalltalkMethodContext.prototype.receiver = null;
- SmalltalkMethodContext.prototype.selector = null;
- SmalltalkMethodContext.prototype.lookupClass = null;
- SmalltalkMethodContext.prototype.fill = function(receiver, selector, locals, lookupClass) {
- this.receiver = receiver;
- this.selector = selector;
- this.locals = locals || {};
- this.lookupClass = lookupClass;
- if(this.homeContext) {
- this.homeContext.evaluatedSelector = selector;
- }
- };
- SmalltalkMethodContext.prototype.fillBlock = function(locals, ctx, index) {
- this.locals = locals || {};
- this.outerContext = ctx;
- this.index = index || 0;
- };
- SmalltalkMethodContext.prototype.init = function() {
- var home = this.homeContext;
- if(home) {
- home.init();
- }
- this.setup(this);
- };
- SmalltalkMethodContext.prototype.method = function() {
- var method;
- var lookup = this.lookupClass || this.receiver.klass;
- while(!method && lookup) {
- method = lookup.methods[st.js2st(this.selector)];
- lookup = lookup.superclass;
- }
- return method;
- };
- };
-
- st.thisContext = undefined;
- st.withContext = function(worker, setup) {
- if(st.thisContext) {
- return inContext(worker, setup);
- } else {
- try {
- return inContext(worker, setup);
- } catch(error) {
- handleError(error);
- st.thisContext = null;
-
- error.amberHandled = true;
- throw error;
- }
- }
- };
- function inContext(worker, setup) {
- var context = pushContext(setup);
- var result = worker(context);
- popContext(context);
- return result;
- }
-
- function wrappedError(error) {
- var errorWrapper = globals.JavaScriptException._on_(error);
-
- try { errorWrapper._signal(); } catch (ex) {}
- var context = st.getThisContext();
- if(isRangeError(error)) {
- stubContextStack(context);
- }
- errorWrapper._context_(context);
- return errorWrapper;
- }
-
- function stubContextStack(context) {
- var currentContext = context;
- var contexts = 0;
- while(contexts < 100) {
- if(currentContext) {
- currentContext = currentContext.homeContext;
- }
- contexts++;
- }
- if(currentContext) {
- currentContext.homeContext = undefined;
- }
- }
- function isRangeError(error) {
- return error instanceof RangeError;
- }
-
- function handleError(error) {
- if (!error.smalltalkError) {
- error = wrappedError(error);
- }
- globals.ErrorHandler._handleError_(error);
- }
-
- st.getThisContext = function() {
- if(st.thisContext) {
- st.thisContext.init();
- return st.thisContext;
- } else {
- return nil;
- }
- };
- function pushContext(setup) {
- var newContext = st.thisContext = new SmalltalkMethodContext(st.thisContext, setup);
- return newContext;
- }
- function popContext(context) {
- st.thisContext = context.homeContext;
- }
- }
- function MessageSendBrik(brikz, st) {
- brikz.ensure("selectorConversion");
- var nil = brikz.ensure("root").nil;
-
-
- st.send = function(receiver, jsSelector, args, klass) {
- var method;
- if(receiver === null) {
- receiver = nil;
- }
- method = klass ? klass.fn.prototype[jsSelector] : receiver.klass && receiver[jsSelector];
- if(method) {
- return method.apply(receiver, args || []);
- } else {
- return messageNotUnderstood(receiver, st.js2st(jsSelector), args);
- }
- };
- function invokeDnuMethod(receiver, stSelector, args) {
- return receiver._doesNotUnderstand_(
- globals.Message._new()
- ._selector_(stSelector)
- ._arguments_([].slice.call(args))
- );
- }
-
- function messageNotUnderstood(receiver, stSelector, args) {
- if (receiver.klass !== undefined && !receiver.allowJavaScriptCalls) {
- return invokeDnuMethod(receiver, stSelector, args);
- }
-
- var propertyName = st.st2prop(stSelector);
- if (!(propertyName in receiver)) {
- return invokeDnuMethod(globals.JSObjectProxy._on_(receiver), stSelector, args);
- }
- return accessJavaScript(receiver, propertyName, args);
- }
-
- function accessJavaScript(receiver, propertyName, args) {
- var propertyValue = receiver[propertyName];
- if (typeof propertyValue === "function" && !/^[A-Z]/.test(propertyName)) {
- return propertyValue.apply(receiver, args || []);
- } else if (args.length > 0) {
- receiver[propertyName] = args[0];
- return nil;
- } else {
- return propertyValue;
- }
- }
- st.accessJavaScript = accessJavaScript;
- this.messageNotUnderstood = messageNotUnderstood;
- }
- function SelectorConversionBrik(brikz, st) {
-
- st.st2js = function(string) {
- var selector = '_' + string;
- selector = selector.replace(/:/g, '_');
- selector = selector.replace(/[\&]/g, '_and');
- selector = selector.replace(/[\|]/g, '_or');
- selector = selector.replace(/[+]/g, '_plus');
- selector = selector.replace(/-/g, '_minus');
- selector = selector.replace(/[*]/g ,'_star');
- selector = selector.replace(/[\/]/g ,'_slash');
- selector = selector.replace(/[\\]/g ,'_backslash');
- selector = selector.replace(/[\~]/g ,'_tild');
- selector = selector.replace(/>/g ,'_gt');
- selector = selector.replace(/</g ,'_lt');
- selector = selector.replace(/=/g ,'_eq');
- selector = selector.replace(/,/g ,'_comma');
- selector = selector.replace(/[@]/g ,'_at');
- return selector;
- };
-
- st.js2st = function(selector) {
- if(selector.match(/__/)) {
- return binaryJsToSt(selector);
- } else {
- return keywordJsToSt(selector);
- }
- };
- function keywordJsToSt(selector) {
- return selector.replace(/^_/, '').replace(/_/g, ':');
- }
- function binaryJsToSt(selector) {
- return selector
- .replace(/^_/, '')
- .replace(/_and/g, '&')
- .replace(/_or/g, '|')
- .replace(/_plus/g, '+')
- .replace(/_minus/g, '-')
- .replace(/_star/g, '*')
- .replace(/_slash/g, '/')
- .replace(/_backslash/g, '\\')
- .replace(/_tild/g, '~')
- .replace(/_gt/g, '>')
- .replace(/_lt/g, '<')
- .replace(/_eq/g, '=')
- .replace(/_comma/g, ',')
- .replace(/_at/g, '@');
- }
- st.st2prop = function (stSelector) {
- var colonPosition = stSelector.indexOf(':');
- return colonPosition === -1 ? stSelector : stSelector.slice(0, colonPosition);
- };
- }
-
- function AMDBrik(brikz, st) {
- this.__init__ = function () {
- st.amdRequire = require;
- st.defaultTransportType = st.defaultTransportType || "amd";
- st.defaultAmdNamespace = st.defaultAmdNamespace || "amber_core";
- };
- }
-
-
- function AsReceiverBrik(brikz, st) {
- var nil = brikz.ensure("root").nil;
-
- this.asReceiver = function (o) {
- if (o == null) { return nil; }
- if (o.klass) { return o; }
- return globals.JSObjectProxy._on_(o);
- };
- }
-
- brikz.root = RootBrik;
- brikz.dnu = DNUBrik;
- brikz.organize = OrganizeBrik;
- brikz.selectorConversion = SelectorConversionBrik;
- brikz.classInit = ClassInitBrik;
- brikz.manipulation = ManipulationBrik;
- brikz.packages = PackagesBrik;
- brikz.classes = ClassesBrik;
- brikz.methods = MethodsBrik;
- brikz.stInit = SmalltalkInitBrik;
- brikz.augments = AugmentsBrik;
- brikz.asReceiver = AsReceiverBrik;
- brikz.amd = AMDBrik;
- brikz.rebuild();
-
- function runnable () {
- brikz.messageSend = MessageSendBrik;
- brikz.runtime = RuntimeBrik;
- brikz.primitives = PrimitivesBrik;
- brikz.rebuild();
- }
- return { api: api, nil: brikz.root.nil, globals: globals, asReceiver: brikz.asReceiver.asReceiver };
- });
|