123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398 |
- /* ====================================================================
- |
- | Amber Smalltalk
- | http://amber-lang.net
- |
- ======================================================================
- ======================================================================
- |
- | Copyright (c) 2010-2014
- | Nicolas Petton <petton.nicolas@gmail.com>
- |
- | Copyright (c) 2012-2017
- | The Amber team https://lolg.it/org/amber/members
- | Amber contributors (see /CONTRIBUTORS)
- |
- | Amber is released under the MIT license
- |
- | Permission is hereby granted, free of charge, to any person obtaining
- | a copy of this software and associated documentation files (the
- | 'Software'), to deal in the Software without restriction, including
- | without limitation the rights to use, copy, modify, merge, publish,
- | distribute, sublicense, and/or sell copies of the Software, and to
- | permit persons to whom the Software is furnished to do so, subject to
- | the following conditions:
- |
- | The above copyright notice and this permission notice shall be
- | included in all copies or substantial portions of the Software.
- |
- | THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
- | EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
- | MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
- | IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
- | CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
- | TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
- | SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
- |
- ==================================================================== */
- //jshint eqnull:true
- define(function () {
- "use strict";
- function inherits (child, parent) {
- child.prototype = Object.create(parent.prototype, {
- constructor: {
- value: child,
- enumerable: false, configurable: true, writable: true
- }
- });
- return child;
- }
- function SmalltalkGlobalsBrik (brikz, st) {
- var globals = Object.create(global);
- globals.SmalltalkSettings = {};
- this.globals = globals;
- }
- function EventBrik (brikz, st) {
- var emit = {};
- this.emit = emit;
- this.declareEvent = function (event) {
- if (!emit[event]) emit[event] = function () {
- };
- }
- }
- function RootBrik (brikz, st) {
- /* Smalltalk foundational objects */
- var coreFns = this.coreFns = {};
- /* SmalltalkRoot is the hidden root of the normal Amber hierarchy.
- All objects including `ProtoObject` inherit from SmalltalkRoot.
- Detached roots (eg. wrapped JS classes like Number or Date)
- do not directly inherit from SmalltalkRoot, but employ a workaround.*/
- function SmalltalkRoot () {
- }
- function SmalltalkProtoObject () {
- }
- function SmalltalkObject () {
- }
- coreFns.ProtoObject = inherits(SmalltalkProtoObject, SmalltalkRoot);
- coreFns.Object = inherits(SmalltalkObject, SmalltalkProtoObject);
- this.Root = SmalltalkRoot;
- this.Object = SmalltalkObject;
- }
- function SelectorsBrik (brikz, st) {
- var selectorSet = Object.create(null);
- var selectors = this.selectors = [];
- this.registerSelector = function (stSelector) {
- if (selectorSet[stSelector]) return false;
- selectors.push(stSelector);
- return selectorSet[stSelector] = true;
- };
- st.allSelectors = function () {
- return selectors;
- };
- }
- function PackagesBrik (brikz, st) {
- st.packages = st.packageDescriptors = {};
- /* Add a package load descriptor to the system */
- st.addPackage = function (name, properties) {
- if (!name) return null;
- return st.packageDescriptors[name] = {properties: properties};
- };
- }
- BehaviorsBrik.deps = ["root", "smalltalkGlobals", "arraySet"];
- function BehaviorsBrik (brikz, st) {
- var globals = brikz.smalltalkGlobals.globals;
- var addElement = brikz.arraySet.addElement;
- var removeElement = brikz.arraySet.removeElement;
- /* Smalltalk classes and traits */
- var traitsOrClasses = [];
- this.buildTraitOrClass = function (category, builder) {
- var traitOrClass = globals.hasOwnProperty(builder.name) && globals[builder.name];
- if (traitOrClass) {
- builder.updateExisting(traitOrClass);
- } else {
- traitOrClass = builder.make();
- traitOrClass.category = category;
- addTraitOrClass(traitOrClass);
- }
- return traitOrClass;
- };
- function addTraitOrClass (traitOrClass) {
- globals[traitOrClass.name] = traitOrClass;
- addElement(traitsOrClasses, traitOrClass);
- traitOrClass.added();
- }
- function removeTraitOrClass (traitOrClass) {
- traitOrClass.removed();
- removeElement(traitsOrClasses, traitOrClass);
- delete globals[traitOrClass.name];
- }
- this.removeTraitOrClass = removeTraitOrClass;
- /* Create an alias for an existing class */
- st.alias = function (traitOrClass, alias) {
- globals[alias] = traitOrClass;
- };
- st.traitsOrClasses = this.traitsOrClasses = traitsOrClasses;
- }
- MethodsBrik.deps = ["event", "selectors", "root"];
- function MethodsBrik (brikz, st) {
- var registerSelector = brikz.selectors.registerSelector;
- var SmalltalkObject = brikz.root.Object;
- var coreFns = brikz.root.coreFns;
- var emit = brikz.event.emit;
- var declareEvent = brikz.event.declareEvent;
- function SmalltalkMethod () {
- }
- coreFns.CompiledMethod = inherits(SmalltalkMethod, SmalltalkObject);
- /* Smalltalk method object. To add a method to a class,
- use api.addMethod() */
- st.method = function (spec) {
- var that = new SmalltalkMethod();
- var selector = spec.selector;
- that.selector = selector;
- that.args = spec.args || {};
- that.protocol = spec.protocol;
- that.source = spec.source;
- that.messageSends = spec.messageSends || [];
- // TODO remove .referencedClasses, have .referencedGlobals
- that.referencedClasses = spec.referencedClasses || [];
- that.fn = spec.fn;
- return that;
- };
- /* Add/remove a method to/from a class */
- st.addMethod = function (method, traitOrBehavior) {
- if (method.owner != null) {
- throw new Error("addMethod: Method " + method.selector + " already bound to " + method.owner);
- }
- method.owner = traitOrBehavior;
- // TODO deprecation helper; remove
- Object.defineProperty(method, "methodClass", {
- get: function () {
- console.warn("Use of .methodClass deprecated, use .owner");
- return method.owner;
- },
- set: function (v) {
- console.warn("Use of .methodClass= deprecated, use .owner=");
- method.owner = v;
- }
- });
- registerNewSelectors(method);
- traitOrBehavior.localMethods[method.selector] = method;
- updateMethod(method.selector, traitOrBehavior);
- };
- declareEvent("selectorsAdded");
- function registerNewSelectors (method) {
- var newSelectors = [];
- function selectorInUse (stSelector) {
- if (registerSelector(stSelector)) {
- newSelectors.push(stSelector);
- }
- }
- selectorInUse(method.selector);
- method.messageSends.forEach(selectorInUse);
- emit.selectorsAdded(newSelectors);
- }
- st.removeMethod = function (method, traitOrBehavior) {
- if (traitOrBehavior.localMethods[method.selector] !== method) return;
- delete traitOrBehavior.localMethods[method.selector];
- updateMethod(method.selector, traitOrBehavior);
- };
- this.setupMethods = function (traitOrBehavior) {
- traitOrBehavior.localMethods = Object.create(null);
- traitOrBehavior.methods = Object.create(null);
- };
- declareEvent("methodReplaced");
- function updateMethod (selector, traitOrBehavior) {
- var oldMethod = traitOrBehavior.methods[selector],
- newMethod = traitOrBehavior.localMethods[selector];
- if (oldMethod == null && newMethod == null) {
- console.warn("Removal of nonexistent method " + traitOrBehavior + " >> " + selector);
- return;
- }
- if (newMethod === oldMethod) return;
- if (newMethod != null) {
- traitOrBehavior.methods[selector] = newMethod;
- traitOrBehavior.methodAdded(newMethod);
- } else {
- delete traitOrBehavior.methods[selector];
- traitOrBehavior.methodRemoved(oldMethod);
- }
- emit.methodReplaced(newMethod, oldMethod, traitOrBehavior);
- }
- this.updateMethod = updateMethod;
- }
- function ArraySetBrik (brikz, st) {
- st.addElement = this.addElement = function (array, el) {
- if (typeof el === 'undefined') {
- return;
- }
- if (array.indexOf(el) === -1) {
- array.push(el);
- }
- };
- st.removeElement = this.removeElement = function (array, el) {
- var i = array.indexOf(el);
- if (i !== -1) {
- array.splice(i, 1);
- }
- };
- }
- function SelectorConversionBrik (brikz, st) {
- /* Convert a Smalltalk selector into a JS selector */
- st.st2js = this.st2js = function (string) {
- return '_' + string
- .replace(/:/g, '_')
- .replace(/[\&]/g, '_and')
- .replace(/[\|]/g, '_or')
- .replace(/[+]/g, '_plus')
- .replace(/-/g, '_minus')
- .replace(/[*]/g, '_star')
- .replace(/[\/]/g, '_slash')
- .replace(/[\\]/g, '_backslash')
- .replace(/[\~]/g, '_tild')
- .replace(/%/g, '_percent')
- .replace(/>/g, '_gt')
- .replace(/</g, '_lt')
- .replace(/=/g, '_eq')
- .replace(/,/g, '_comma')
- .replace(/[@]/g, '_at');
- };
- /* Convert a string to a valid smalltalk selector.
- if you modify the following functions, also change st2js
- accordingly */
- 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(/_percent/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);
- };
- }
- NilBrik.deps = ["root"];
- function NilBrik (brikz, st) {
- var SmalltalkObject = brikz.root.Object;
- var coreFns = brikz.root.coreFns;
- function SmalltalkNil () {
- }
- coreFns.UndefinedObject = inherits(SmalltalkNil, SmalltalkObject);
- this.nilAsReceiver = new SmalltalkNil();
- this.nilAsValue = this.nilAsReceiver; // TODO null
- // Adds an `a$nil` (and legacy `isNil`) property to the `nil` object. When sending
- // nil objects from one environment to another, doing
- // `anObject == nil` (in JavaScript) does not always answer
- // true as the referenced nil object might come from the other
- // environment.
- Object.defineProperty(this.nilAsReceiver, 'a$nil', {
- value: true,
- enumerable: false, configurable: false, writable: false
- });
- Object.defineProperty(this.nilAsReceiver, 'isNil', {
- value: true,
- enumerable: false, configurable: false, writable: false
- });
- }
- /* Making smalltalk that has basic building blocks */
- function configureWithFundamentals (brikz) {
- brikz.smalltalkGlobals = SmalltalkGlobalsBrik;
- brikz.root = RootBrik;
- brikz.nil = NilBrik;
- brikz.event = EventBrik;
- brikz.arraySet = ArraySetBrik;
- brikz.selectorConversion = SelectorConversionBrik;
- brikz.selectors = SelectorsBrik;
- brikz.packages = PackagesBrik;
- brikz.behaviors = BehaviorsBrik;
- brikz.methods = MethodsBrik;
- brikz.rebuild();
- }
- return configureWithFundamentals;
- });
|