kernel-fundamentals.js 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319
  1. /* ====================================================================
  2. |
  3. | Amber Smalltalk
  4. | http://amber-lang.net
  5. |
  6. ======================================================================
  7. ======================================================================
  8. |
  9. | Copyright (c) 2010-2014
  10. | Nicolas Petton <petton.nicolas@gmail.com>
  11. |
  12. | Copyright (c) 2012-2017
  13. | The Amber team https://lolg.it/org/amber/members
  14. | Amber contributors (see /CONTRIBUTORS)
  15. |
  16. | Amber is released under the MIT license
  17. |
  18. | Permission is hereby granted, free of charge, to any person obtaining
  19. | a copy of this software and associated documentation files (the
  20. | 'Software'), to deal in the Software without restriction, including
  21. | without limitation the rights to use, copy, modify, merge, publish,
  22. | distribute, sublicense, and/or sell copies of the Software, and to
  23. | permit persons to whom the Software is furnished to do so, subject to
  24. | the following conditions:
  25. |
  26. | The above copyright notice and this permission notice shall be
  27. | included in all copies or substantial portions of the Software.
  28. |
  29. | THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
  30. | EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  31. | MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  32. | IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  33. | CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  34. | TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  35. | SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  36. |
  37. ==================================================================== */
  38. //jshint eqnull:true
  39. define(function () {
  40. "use strict";
  41. function inherits (child, parent) {
  42. child.prototype = Object.create(parent.prototype, {
  43. constructor: {
  44. value: child,
  45. enumerable: false, configurable: true, writable: true
  46. }
  47. });
  48. return child;
  49. }
  50. function SmalltalkGlobalsBrik (brikz, st) {
  51. var globals = Object.create(global);
  52. globals.SmalltalkSettings = {};
  53. this.globals = globals;
  54. }
  55. function EventBrik (brikz, st) {
  56. var emit = {};
  57. this.emit = emit;
  58. this.declareEvent = function (event) {
  59. if (!emit[event]) emit[event] = function () {
  60. };
  61. }
  62. }
  63. function RootBrik (brikz, st) {
  64. /* Smalltalk foundational objects */
  65. var coreFns = this.coreFns = {};
  66. /* SmalltalkRoot is the hidden root of the normal Amber hierarchy.
  67. All objects including `ProtoObject` inherit from SmalltalkRoot.
  68. Detached roots (eg. wrapped JS classes like Number or Date)
  69. do not directly inherit from SmalltalkRoot, but employ a workaround.*/
  70. function SmalltalkRoot () {
  71. }
  72. function SmalltalkProtoObject () {
  73. }
  74. function SmalltalkObject () {
  75. }
  76. coreFns.ProtoObject = inherits(SmalltalkProtoObject, SmalltalkRoot);
  77. coreFns.Object = inherits(SmalltalkObject, SmalltalkProtoObject);
  78. this.Root = SmalltalkRoot;
  79. this.Object = SmalltalkObject;
  80. }
  81. function SelectorsBrik (brikz, st) {
  82. var selectorSet = Object.create(null);
  83. var selectors = this.selectors = [];
  84. this.registerSelector = function (stSelector) {
  85. if (selectorSet[stSelector]) return false;
  86. selectors.push(stSelector);
  87. return selectorSet[stSelector] = true;
  88. };
  89. st.allSelectors = function () {
  90. return selectors;
  91. };
  92. }
  93. function PackagesBrik (brikz, st) {
  94. st.packages = st.packageDescriptors = {};
  95. /* Add a package load descriptor to the system */
  96. st.addPackage = function (name, properties) {
  97. if (!name) return null;
  98. return st.packageDescriptors[name] = {properties: properties};
  99. };
  100. }
  101. BehaviorsBrik.deps = ["root", "smalltalkGlobals", "arraySet"];
  102. function BehaviorsBrik (brikz, st) {
  103. var globals = brikz.smalltalkGlobals.globals;
  104. var addElement = brikz.arraySet.addElement;
  105. var removeElement = brikz.arraySet.removeElement;
  106. /* Smalltalk classes and traits */
  107. var traitsOrClasses = [];
  108. this.buildTraitOrClass = function (category, builder) {
  109. var traitOrClass = globals.hasOwnProperty(builder.name) && globals[builder.name];
  110. if (traitOrClass) {
  111. builder.updateExisting(traitOrClass);
  112. } else {
  113. traitOrClass = builder.make();
  114. traitOrClass.category = category;
  115. addTraitOrClass(traitOrClass);
  116. }
  117. return traitOrClass;
  118. };
  119. function addTraitOrClass (traitOrClass) {
  120. globals[traitOrClass.name] = traitOrClass;
  121. addElement(traitsOrClasses, traitOrClass);
  122. traitOrClass.added();
  123. }
  124. function removeTraitOrClass (traitOrClass) {
  125. traitOrClass.removed();
  126. removeElement(traitsOrClasses, traitOrClass);
  127. delete globals[traitOrClass.name];
  128. }
  129. this.removeTraitOrClass = removeTraitOrClass;
  130. st.traitsOrClasses = this.traitsOrClasses = traitsOrClasses;
  131. }
  132. MethodsBrik.deps = ["event", "selectors", "root"];
  133. function MethodsBrik (brikz, st) {
  134. var registerSelector = brikz.selectors.registerSelector;
  135. var SmalltalkObject = brikz.root.Object;
  136. var coreFns = brikz.root.coreFns;
  137. var emit = brikz.event.emit;
  138. var declareEvent = brikz.event.declareEvent;
  139. function SmalltalkMethod () {
  140. }
  141. coreFns.CompiledMethod = inherits(SmalltalkMethod, SmalltalkObject);
  142. /* Smalltalk method object. To add a method to a class,
  143. use api.addMethod() */
  144. st.method = function (spec) {
  145. var that = new SmalltalkMethod();
  146. var selector = spec.selector;
  147. that.selector = selector;
  148. that.args = spec.args || [];
  149. that.protocol = spec.protocol;
  150. that.source = spec.source;
  151. that.messageSends = spec.messageSends || [];
  152. // TODO remove .referencedClasses, have .referencedGlobals
  153. that.referencedClasses = spec.referencedClasses || [];
  154. that.fn = spec.fn;
  155. return that;
  156. };
  157. /* Add/remove a method to/from a class */
  158. st.addMethod = function (method, traitOrBehavior) {
  159. if (method.owner != null) {
  160. throw new Error("addMethod: Method " + method.selector + " already bound to " + method.owner);
  161. }
  162. method.owner = traitOrBehavior;
  163. registerNewSelectors(method);
  164. traitOrBehavior.localMethods[method.selector] = method;
  165. updateMethod(method.selector, traitOrBehavior);
  166. };
  167. declareEvent("selectorsAdded");
  168. function registerNewSelectors (method) {
  169. var newSelectors = [];
  170. function selectorInUse (stSelector) {
  171. if (registerSelector(stSelector)) {
  172. newSelectors.push(stSelector);
  173. }
  174. }
  175. selectorInUse(method.selector);
  176. method.messageSends.forEach(selectorInUse);
  177. emit.selectorsAdded(newSelectors);
  178. }
  179. st.removeMethod = function (method, traitOrBehavior) {
  180. if (traitOrBehavior.localMethods[method.selector] !== method) return;
  181. delete traitOrBehavior.localMethods[method.selector];
  182. updateMethod(method.selector, traitOrBehavior);
  183. };
  184. this.setupMethods = function (traitOrBehavior) {
  185. traitOrBehavior.localMethods = Object.create(null);
  186. traitOrBehavior.methods = Object.create(null);
  187. };
  188. declareEvent("methodReplaced");
  189. function updateMethod (selector, traitOrBehavior) {
  190. var oldMethod = traitOrBehavior.methods[selector],
  191. newMethod = traitOrBehavior.localMethods[selector];
  192. if (oldMethod == null && newMethod == null) {
  193. console.warn("Removal of nonexistent method " + traitOrBehavior + " >> " + selector);
  194. return;
  195. }
  196. if (newMethod === oldMethod) return;
  197. if (newMethod != null) {
  198. traitOrBehavior.methods[selector] = newMethod;
  199. traitOrBehavior.methodAdded(newMethod);
  200. } else {
  201. delete traitOrBehavior.methods[selector];
  202. traitOrBehavior.methodRemoved(oldMethod);
  203. }
  204. emit.methodReplaced(newMethod, oldMethod, traitOrBehavior);
  205. }
  206. this.updateMethod = updateMethod;
  207. }
  208. function ArraySetBrik (brikz, st) {
  209. st.addElement = this.addElement = function (array, el) {
  210. if (typeof el === 'undefined') {
  211. return;
  212. }
  213. if (array.indexOf(el) === -1) {
  214. array.push(el);
  215. }
  216. };
  217. st.removeElement = this.removeElement = function (array, el) {
  218. var i = array.indexOf(el);
  219. if (i !== -1) {
  220. array.splice(i, 1);
  221. }
  222. };
  223. }
  224. NilBrik.deps = ["root"];
  225. function NilBrik (brikz, st) {
  226. var SmalltalkObject = brikz.root.Object;
  227. var coreFns = brikz.root.coreFns;
  228. function SmalltalkNil () {
  229. }
  230. coreFns.UndefinedObject = inherits(SmalltalkNil, SmalltalkObject);
  231. this.nilAsReceiver = new SmalltalkNil();
  232. this.nilAsValue = this.nilAsReceiver; // TODO null
  233. // Adds an `a$nil` (and legacy `isNil`) property to the `nil` object. When sending
  234. // nil objects from one environment to another, doing
  235. // `anObject == nil` (in JavaScript) does not always answer
  236. // true as the referenced nil object might come from the other
  237. // environment.
  238. Object.defineProperty(this.nilAsReceiver, 'a$nil', {
  239. value: true,
  240. enumerable: false, configurable: false, writable: false
  241. });
  242. Object.defineProperty(this.nilAsReceiver, 'isNil', {
  243. value: true,
  244. enumerable: false, configurable: false, writable: false
  245. });
  246. }
  247. /* Making smalltalk that has basic building blocks */
  248. function configureWithFundamentals (brikz) {
  249. brikz.smalltalkGlobals = SmalltalkGlobalsBrik;
  250. brikz.root = RootBrik;
  251. brikz.nil = NilBrik;
  252. brikz.event = EventBrik;
  253. brikz.arraySet = ArraySetBrik;
  254. brikz.selectors = SelectorsBrik;
  255. brikz.packages = PackagesBrik;
  256. brikz.behaviors = BehaviorsBrik;
  257. brikz.methods = MethodsBrik;
  258. brikz.rebuild();
  259. }
  260. return configureWithFundamentals;
  261. });