boot.js 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808
  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-2016
  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(['require', './brikz', './compatibility'], function (require, Brikz) {
  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. // jshint evil:true
  52. var jsGlobals = new Function("return this")();
  53. var globals = Object.create(jsGlobals);
  54. globals.SmalltalkSettings = {};
  55. this.globals = globals;
  56. }
  57. function RootBrik (brikz, st) {
  58. /* Smalltalk foundational objects */
  59. /* SmalltalkRoot is the hidden root of the normal Amber hierarchy.
  60. All objects including `ProtoObject` inherit from SmalltalkRoot.
  61. Detached roots (eg. wrapped JS classes like Number or Date)
  62. do not directly inherit from SmalltalkRoot, but employ a workaround.*/
  63. function SmalltalkRoot () {
  64. }
  65. function SmalltalkProtoObject () {
  66. }
  67. function SmalltalkObject () {
  68. }
  69. function SmalltalkNil () {
  70. }
  71. inherits(SmalltalkProtoObject, SmalltalkRoot);
  72. inherits(SmalltalkObject, SmalltalkProtoObject);
  73. inherits(SmalltalkNil, SmalltalkObject);
  74. this.Object = SmalltalkObject;
  75. this.nilAsReceiver = new SmalltalkNil();
  76. // Adds an `isNil` property to the `nil` object. When sending
  77. // nil objects from one environment to another, doing
  78. // `anObject == nil` (in JavaScript) does not always answer
  79. // true as the referenced nil object might come from the other
  80. // environment.
  81. Object.defineProperty(this.nilAsReceiver, 'isNil', {
  82. value: true,
  83. enumerable: false, configurable: false, writable: false
  84. });
  85. // Fake root class of the system.
  86. // Effective superclass of all classes created with `nil subclass: ...`.
  87. this.nilAsClass = {fn: SmalltalkRoot};
  88. this.__init__ = function () {
  89. var globals = brikz.smalltalkGlobals.globals;
  90. var addCoupledClass = brikz.classes.addCoupledClass;
  91. st.addPackage("Kernel-Objects");
  92. addCoupledClass("ProtoObject", undefined, "Kernel-Objects", SmalltalkProtoObject);
  93. addCoupledClass("Object", globals.ProtoObject, "Kernel-Objects", SmalltalkObject);
  94. addCoupledClass("UndefinedObject", globals.Object, "Kernel-Objects", SmalltalkNil);
  95. };
  96. this.__init__.once = true;
  97. }
  98. OrganizeBrik.deps = ["augments", "root"];
  99. function OrganizeBrik (brikz, st) {
  100. var SmalltalkObject = brikz.root.Object;
  101. function SmalltalkOrganizer () {
  102. }
  103. function SmalltalkPackageOrganizer () {
  104. this.elements = [];
  105. }
  106. function SmalltalkClassOrganizer () {
  107. this.elements = [];
  108. }
  109. inherits(SmalltalkOrganizer, SmalltalkObject);
  110. inherits(SmalltalkPackageOrganizer, SmalltalkOrganizer);
  111. inherits(SmalltalkClassOrganizer, SmalltalkOrganizer);
  112. this.__init__ = function () {
  113. var globals = brikz.smalltalkGlobals.globals;
  114. var addCoupledClass = brikz.classes.addCoupledClass;
  115. st.addPackage("Kernel-Infrastructure");
  116. addCoupledClass("Organizer", globals.Object, "Kernel-Infrastructure", SmalltalkOrganizer);
  117. addCoupledClass("PackageOrganizer", globals.Organizer, "Kernel-Infrastructure", SmalltalkPackageOrganizer);
  118. addCoupledClass("ClassOrganizer", globals.Organizer, "Kernel-Infrastructure", SmalltalkClassOrganizer);
  119. };
  120. this.__init__.once = true;
  121. this.setupClassOrganization = function (klass) {
  122. klass.organization = new SmalltalkClassOrganizer();
  123. klass.organization.theClass = klass;
  124. };
  125. this.setupPackageOrganization = function (pkg) {
  126. pkg.organization = new SmalltalkPackageOrganizer();
  127. };
  128. this.addOrganizationElement = function (owner, element) {
  129. owner.organization.elements.addElement(element);
  130. };
  131. this.removeOrganizationElement = function (owner, element) {
  132. owner.organization.elements.removeElement(element);
  133. };
  134. }
  135. SelectorsBrik.deps = ["selectorConversion"];
  136. function SelectorsBrik (brikz, st) {
  137. var selectorSet = Object.create(null);
  138. var selectors = this.selectors = [];
  139. var selectorPairs = this.selectorPairs = [];
  140. this.registerSelector = function (stSelector) {
  141. if (selectorSet[stSelector]) return null;
  142. var jsSelector = st.st2js(stSelector);
  143. selectorSet[stSelector] = true;
  144. selectors.push(stSelector);
  145. var pair = {st: stSelector, js: jsSelector};
  146. selectorPairs.push(pair);
  147. return pair;
  148. };
  149. st.allSelectors = function () {
  150. return selectors;
  151. };
  152. }
  153. PackagesBrik.deps = ["organize", "root"];
  154. function PackagesBrik (brikz, st) {
  155. var setupPackageOrganization = brikz.organize.setupPackageOrganization;
  156. var SmalltalkObject = brikz.root.Object;
  157. function SmalltalkPackage () {
  158. }
  159. inherits(SmalltalkPackage, SmalltalkObject);
  160. this.__init__ = function () {
  161. var globals = brikz.smalltalkGlobals.globals;
  162. var addCoupledClass = brikz.classes.addCoupledClass;
  163. st.addPackage("Kernel-Infrastructure");
  164. addCoupledClass("Package", globals.Object, "Kernel-Infrastructure", SmalltalkPackage);
  165. };
  166. this.__init__.once = true;
  167. st.packages = {};
  168. /* Smalltalk package creation. To add a Package, use smalltalk.addPackage() */
  169. function pkg (spec) {
  170. var that = new SmalltalkPackage();
  171. that.pkgName = spec.pkgName;
  172. setupPackageOrganization(that);
  173. that.properties = spec.properties || {};
  174. return that;
  175. }
  176. /* Add a package to the system, creating a new one if needed.
  177. If pkgName is null or empty we return nil.
  178. If package already exists we still update the properties of it. */
  179. st.addPackage = function (pkgName, properties) {
  180. if (!pkgName) {
  181. return null;
  182. }
  183. if (!(st.packages[pkgName])) {
  184. st.packages[pkgName] = pkg({
  185. pkgName: pkgName,
  186. properties: properties
  187. });
  188. } else {
  189. if (properties) {
  190. st.packages[pkgName].properties = properties;
  191. }
  192. }
  193. return st.packages[pkgName];
  194. };
  195. }
  196. ClassesBrik.deps = ["organize", "root", "smalltalkGlobals"];
  197. function ClassesBrik (brikz, st) {
  198. var setupClassOrganization = brikz.organize.setupClassOrganization;
  199. var addOrganizationElement = brikz.organize.addOrganizationElement;
  200. var removeOrganizationElement = brikz.organize.removeOrganizationElement;
  201. var globals = brikz.smalltalkGlobals.globals;
  202. var nilAsClass = brikz.root.nilAsClass;
  203. var SmalltalkObject = brikz.root.Object;
  204. nilAsClass.klass = {fn: SmalltalkClass};
  205. function SmalltalkBehaviorBody () {
  206. }
  207. function SmalltalkBehavior () {
  208. }
  209. function SmalltalkClass () {
  210. }
  211. function SmalltalkMetaclass () {
  212. }
  213. inherits(SmalltalkBehaviorBody, SmalltalkObject);
  214. inherits(SmalltalkBehavior, SmalltalkBehaviorBody);
  215. inherits(SmalltalkClass, SmalltalkBehavior);
  216. inherits(SmalltalkMetaclass, SmalltalkBehavior);
  217. SmalltalkBehavior.prototype.toString = function () {
  218. return 'Smalltalk ' + this.className;
  219. };
  220. SmalltalkMetaclass.prototype.meta = true;
  221. SmalltalkClass.prototype.added = function () {
  222. addSubclass(this);
  223. if (st._classAdded) st._classAdded(this);
  224. };
  225. SmalltalkClass.prototype.removed = function () {
  226. if (st._classRemoved) st._classRemoved(this);
  227. removeSubclass(this);
  228. };
  229. SmalltalkBehavior.prototype.methodAdded = function (method) {
  230. if (st._methodAdded) st._methodAdded(method, this);
  231. };
  232. SmalltalkBehavior.prototype.methodRemoved = function (method) {
  233. if (st._methodRemoved) st._methodRemoved(method, this);
  234. };
  235. this.BehaviorBody = SmalltalkBehaviorBody;
  236. this.__init__ = function () {
  237. var globals = brikz.smalltalkGlobals.globals;
  238. var addCoupledClass = brikz.classes.addCoupledClass;
  239. var nilSubclasses = [globals.ProtoObject];
  240. st.addPackage("Kernel-Classes");
  241. addCoupledClass("BehaviorBody", globals.Object, "Kernel-Classes", SmalltalkBehaviorBody);
  242. addCoupledClass("Behavior", globals.BehaviorBody, "Kernel-Classes", SmalltalkBehavior);
  243. addCoupledClass("Metaclass", globals.Behavior, "Kernel-Classes", SmalltalkMetaclass);
  244. addCoupledClass("Class", globals.Behavior, "Kernel-Classes", SmalltalkClass);
  245. // Manually bootstrap the metaclass hierarchy
  246. nilAsClass.klass = globals.Class;
  247. nilSubclasses.forEach(function (each) {
  248. each.klass.superclass = globals.Class;
  249. addSubclass(each.klass);
  250. });
  251. };
  252. this.__init__.once = true;
  253. /* Smalltalk classes */
  254. var classes = [];
  255. /* Smalltalk class creation. A class is an instance of an automatically
  256. created metaclass object. Newly created classes (not their metaclass)
  257. should be added to the system, see smalltalk.addClass().
  258. Superclass linking is *not* handled here, see api.initialize() */
  259. SmalltalkClass.make = function (spec) {
  260. var setSuperClass = spec.superclass;
  261. if (!spec.superclass) {
  262. spec.superclass = nilAsClass;
  263. }
  264. var meta = metaclass(spec);
  265. var that = meta.instanceClass;
  266. that.superclass = setSuperClass;
  267. that.fn = spec.fn || inherits(function () {
  268. }, spec.superclass.fn);
  269. that.iVarNames = spec.iVarNames || [];
  270. that.subclasses = [];
  271. setupBehavior(that, spec);
  272. that.className = spec.className;
  273. meta.className = spec.className + ' class';
  274. meta.superclass = spec.superclass.klass;
  275. return that;
  276. };
  277. function metaclass (spec) {
  278. var that = new SmalltalkMetaclass();
  279. that.fn = inherits(function () {
  280. }, spec.superclass.klass.fn);
  281. wireKlass(that);
  282. that.instanceClass = new that.fn();
  283. that.iVarNames = [];
  284. setupBehavior(that, {});
  285. return that;
  286. }
  287. function setupBehavior (klass, spec) {
  288. if (spec.pkg) {
  289. klass.pkg = spec.pkg;
  290. }
  291. setupClassOrganization(klass);
  292. Object.defineProperty(klass, "methods", {
  293. value: Object.create(null),
  294. enumerable: false, configurable: true, writable: true
  295. });
  296. }
  297. this.setupBehavior = setupBehavior;
  298. function wireKlass (klass) {
  299. Object.defineProperty(klass.fn.prototype, "klass", {
  300. value: klass,
  301. enumerable: false, configurable: true, writable: true
  302. });
  303. }
  304. this.wireKlass = wireKlass;
  305. /* Add a class to the system, creating a new one if needed.
  306. A Package is lazily created if one with given name does not exist. */
  307. st.addClass = function (className, superclass, iVarNames, pkgName) {
  308. // While subclassing nil is allowed, it might be an error, so
  309. // warn about it.
  310. if (typeof superclass == 'undefined' || superclass && superclass.isNil) {
  311. console.warn('Compiling ' + className + ' as a subclass of `nil`. A dependency might be missing.');
  312. }
  313. return rawAddClass(pkgName, SmalltalkClass, {
  314. className: className,
  315. superclass: superclass,
  316. iVarNames: iVarNames
  317. });
  318. };
  319. SmalltalkClass.normalizeSpec = function (spec) {
  320. if (spec.superclass == null || spec.superclass.isNil) {
  321. spec.superclass = null;
  322. }
  323. };
  324. SmalltalkClass.updateExistingFromSpec = function (theClass, spec) {
  325. if (theClass.superclass == spec.superclass && !spec.fn) {
  326. if (spec.iVarNames) theClass.iVarNames = spec.iVarNames;
  327. if (spec.pkg) theClass.pkg = spec.pkg;
  328. return true;
  329. }
  330. return false;
  331. };
  332. SmalltalkClass.updateSpecFromExisting = function (theClass, spec) {
  333. spec.iVarNames = spec.iVarNames || theClass.iVarNames;
  334. };
  335. function rawAddClass (pkgName, type, spec) {
  336. spec.pkg = st.packages[pkgName];
  337. if (!spec.pkg) {
  338. throw new Error("Missing package " + pkgName);
  339. }
  340. type.normalizeSpec(spec);
  341. var theClass = globals.hasOwnProperty(spec.className) && globals[spec.className];
  342. if (!theClass || !type.updateExistingFromSpec(theClass, spec)) {
  343. if (theClass) {
  344. type.updateSpecFromExisting(theClass, spec);
  345. removeClass(theClass);
  346. }
  347. theClass = type.make(spec);
  348. }
  349. addClass(theClass);
  350. return theClass;
  351. }
  352. this.rawAddClass = rawAddClass;
  353. function addClass (klass) {
  354. globals[klass.className] = klass;
  355. classes.addElement(klass);
  356. addOrganizationElement(klass.pkg, klass);
  357. klass.added();
  358. }
  359. function removeClass (klass) {
  360. klass.removed();
  361. removeOrganizationElement(klass.pkg, klass);
  362. classes.removeElement(klass);
  363. delete globals[klass.className];
  364. }
  365. st.removeClass = removeClass;
  366. function addSubclass (klass) {
  367. if (klass.superclass) {
  368. klass.superclass.subclasses.addElement(klass);
  369. }
  370. }
  371. function removeSubclass (klass) {
  372. if (klass.superclass) {
  373. klass.superclass.subclasses.removeElement(klass);
  374. }
  375. }
  376. /* Create a new class coupling with a JavaScript constructor,
  377. and add it to the system.*/
  378. this.addCoupledClass = function (className, superclass, pkgName, fn) {
  379. return rawAddClass(pkgName, SmalltalkClass, {className: className, superclass: superclass, fn: fn});
  380. };
  381. /* Create an alias for an existing class */
  382. st.alias = function (klass, alias) {
  383. globals[alias] = klass;
  384. };
  385. /* Answer all registered Smalltalk classes */
  386. //TODO: remove the function and make smalltalk.classes an array
  387. st.classes = this.classes = function () {
  388. return classes;
  389. };
  390. function metaSubclasses (metaclass) {
  391. return metaclass.instanceClass.subclasses
  392. .filter(function (each) {
  393. return !each.meta;
  394. })
  395. .map(function (each) {
  396. return each.klass;
  397. });
  398. }
  399. st.metaSubclasses = metaSubclasses;
  400. st.traverseClassTree = function (klass, fn) {
  401. var queue = [klass], sentinel = {};
  402. for (var i = 0; i < queue.length; ++i) {
  403. var item = queue[i];
  404. if (fn(item, sentinel) === sentinel) continue;
  405. var subclasses = item.meta ? metaSubclasses(item) : item.subclasses;
  406. queue.push.apply(queue, subclasses);
  407. }
  408. };
  409. }
  410. MethodsBrik.deps = ["organize", "selectors", "root", "selectorConversion"];
  411. function MethodsBrik (brikz, st) {
  412. var addOrganizationElement = brikz.organize.addOrganizationElement;
  413. var registerSelector = brikz.selectors.registerSelector;
  414. var SmalltalkObject = brikz.root.Object;
  415. function SmalltalkMethod () {
  416. }
  417. inherits(SmalltalkMethod, SmalltalkObject);
  418. this.__init__ = function () {
  419. var globals = brikz.smalltalkGlobals.globals;
  420. var addCoupledClass = brikz.classes.addCoupledClass;
  421. st.addPackage("Kernel-Methods");
  422. addCoupledClass("CompiledMethod", globals.Object, "Kernel-Methods", SmalltalkMethod);
  423. };
  424. this.__init__.once = true;
  425. /* Smalltalk method object. To add a method to a class,
  426. use api.addMethod() */
  427. st.method = function (spec) {
  428. var that = new SmalltalkMethod();
  429. var selector = spec.selector;
  430. that.selector = selector;
  431. that.jsSelector = st.st2js(selector);
  432. that.args = spec.args || {};
  433. that.protocol = spec.protocol;
  434. that.source = spec.source;
  435. that.messageSends = spec.messageSends || [];
  436. that.referencedClasses = spec.referencedClasses || [];
  437. that.fn = spec.fn;
  438. return that;
  439. };
  440. /* Add/remove a method to/from a class */
  441. st.addMethod = function (method, klass) {
  442. klass.methods[method.selector] = method;
  443. method.methodClass = klass;
  444. // During the bootstrap, #addCompiledMethod is not used.
  445. // Therefore we populate the organizer here too
  446. addOrganizationElement(klass, method.protocol);
  447. var newSelectors = [];
  448. function selectorInUse (stSelector) {
  449. var pair = registerSelector(stSelector);
  450. if (pair) {
  451. newSelectors.push(pair);
  452. }
  453. }
  454. selectorInUse(method.selector);
  455. method.messageSends.forEach(selectorInUse);
  456. klass.methodAdded(method);
  457. if (st._selectorsAdded) st._selectorsAdded(newSelectors);
  458. };
  459. st.removeMethod = function (method, klass) {
  460. if (klass.methods[method.selector] !== method) return;
  461. delete klass.methods[method.selector];
  462. klass.methodRemoved(method);
  463. // Do *not* delete protocols from here.
  464. // This is handled by #removeCompiledMethod
  465. };
  466. }
  467. TraitsBrik.deps = ["classes"];
  468. function TraitsBrik (brikz, st) {
  469. var SmalltalkBehaviorBody = brikz.classes.BehaviorBody;
  470. var setupBehavior = brikz.classes.setupBehavior;
  471. var rawAddClass = brikz.classes.rawAddClass;
  472. function SmalltalkTrait () {
  473. }
  474. inherits(SmalltalkTrait, SmalltalkBehaviorBody);
  475. SmalltalkTrait.prototype.trait = true;
  476. SmalltalkTrait.prototype.added = function () {
  477. if (st._traitAdded) st._traitAdded(this);
  478. };
  479. SmalltalkTrait.prototype.removed = function () {
  480. if (st._traitRemoved) st._traitRemoved(this);
  481. };
  482. SmalltalkTrait.prototype.methodAdded = function (method) {
  483. if (st._traitMethodAdded) st._traitMethodAdded(method, this);
  484. };
  485. SmalltalkTrait.prototype.methodRemoved = function (method) {
  486. if (st._traitMethodRemoved) st._traitMethodRemoved(method, this);
  487. };
  488. this.__init__ = function () {
  489. var globals = brikz.smalltalkGlobals.globals;
  490. var addCoupledClass = brikz.classes.addCoupledClass;
  491. st.addPackage("Kernel-Classes");
  492. addCoupledClass("Trait", globals.BehaviorBody, "Kernel-Classes", SmalltalkTrait);
  493. };
  494. this.__init__.once = true;
  495. SmalltalkTrait.make = function (spec) {
  496. var that = new SmalltalkTrait();
  497. that.className = spec.className;
  498. setupBehavior(that, spec);
  499. return that;
  500. };
  501. SmalltalkTrait.normalizeSpec = function (spec) {
  502. };
  503. SmalltalkTrait.updateExistingFromSpec = function (theClass, spec) {
  504. if (spec.pkg) theClass.pkg = spec.pkg;
  505. };
  506. SmalltalkTrait.updateSpecFromExisting = function (theClass, spec) {
  507. };
  508. st.addTrait = function (className, pkgName) {
  509. return rawAddClass(pkgName, SmalltalkTrait, {className: className});
  510. };
  511. }
  512. function AugmentsBrik (brikz, st) {
  513. /* Array extensions */
  514. Array.prototype.addElement = function (el) {
  515. if (typeof el === 'undefined') {
  516. return;
  517. }
  518. if (this.indexOf(el) == -1) {
  519. this.push(el);
  520. }
  521. };
  522. Array.prototype.removeElement = function (el) {
  523. var i = this.indexOf(el);
  524. if (i !== -1) {
  525. this.splice(i, 1);
  526. }
  527. };
  528. }
  529. SmalltalkInitBrik.deps = ["globals", "classes"];
  530. function SmalltalkInitBrik (brikz, st) {
  531. var globals = brikz.smalltalkGlobals.globals;
  532. var initialized = false;
  533. var runtimeLoadedPromise = new Promise(function (resolve, reject) {
  534. require(['./kernel-runtime'], resolve, reject);
  535. });
  536. /* Smalltalk initialization. Called on page load */
  537. st.initialize = function () {
  538. return runtimeLoadedPromise.then(function (configureWithRuntime) {
  539. if (initialized) {
  540. return;
  541. }
  542. configureWithRuntime(brikz);
  543. st.alias(globals.Array, "OrderedCollection");
  544. st.alias(globals.Date, "Time");
  545. st.classes().forEach(function (klass) {
  546. klass._initialize();
  547. });
  548. initialized = true;
  549. });
  550. };
  551. }
  552. function SelectorConversionBrik (brikz, st) {
  553. /* Convert a Smalltalk selector into a JS selector */
  554. st.st2js = function (string) {
  555. return '_' + string
  556. .replace(/:/g, '_')
  557. .replace(/[\&]/g, '_and')
  558. .replace(/[\|]/g, '_or')
  559. .replace(/[+]/g, '_plus')
  560. .replace(/-/g, '_minus')
  561. .replace(/[*]/g, '_star')
  562. .replace(/[\/]/g, '_slash')
  563. .replace(/[\\]/g, '_backslash')
  564. .replace(/[\~]/g, '_tild')
  565. .replace(/>/g, '_gt')
  566. .replace(/</g, '_lt')
  567. .replace(/=/g, '_eq')
  568. .replace(/,/g, '_comma')
  569. .replace(/[@]/g, '_at');
  570. };
  571. /* Convert a string to a valid smalltalk selector.
  572. if you modify the following functions, also change st2js
  573. accordingly */
  574. st.js2st = function (selector) {
  575. if (selector.match(/^__/)) {
  576. return binaryJsToSt(selector);
  577. } else {
  578. return keywordJsToSt(selector);
  579. }
  580. };
  581. function keywordJsToSt (selector) {
  582. return selector.replace(/^_/, '').replace(/_/g, ':');
  583. }
  584. function binaryJsToSt (selector) {
  585. return selector
  586. .replace(/^_/, '')
  587. .replace(/_and/g, '&')
  588. .replace(/_or/g, '|')
  589. .replace(/_plus/g, '+')
  590. .replace(/_minus/g, '-')
  591. .replace(/_star/g, '*')
  592. .replace(/_slash/g, '/')
  593. .replace(/_backslash/g, '\\')
  594. .replace(/_tild/g, '~')
  595. .replace(/_gt/g, '>')
  596. .replace(/_lt/g, '<')
  597. .replace(/_eq/g, '=')
  598. .replace(/_comma/g, ',')
  599. .replace(/_at/g, '@');
  600. }
  601. st.st2prop = function (stSelector) {
  602. var colonPosition = stSelector.indexOf(':');
  603. return colonPosition === -1 ? stSelector : stSelector.slice(0, colonPosition);
  604. };
  605. }
  606. /* Adds AMD and requirejs related methods to the api */
  607. function AMDBrik (brikz, st) {
  608. st.amdRequire = require;
  609. st.defaultTransportType = st.defaultTransportType || "amd";
  610. st.defaultAmdNamespace = st.defaultAmdNamespace || "amber_core";
  611. }
  612. /* Defines asReceiver to be present at load time */
  613. /* (logically it belongs more to PrimitiveBrik) */
  614. AsReceiverBrik.deps = ["smalltalkGlobals", "root"];
  615. function AsReceiverBrik (brikz, st) {
  616. var globals = brikz.smalltalkGlobals.globals;
  617. var nilAsReceiver = brikz.root.nilAsReceiver;
  618. /**
  619. * This function is used all over the compiled amber code.
  620. * It takes any value (JavaScript or Smalltalk)
  621. * and returns a proper Amber Smalltalk receiver.
  622. *
  623. * null or undefined -> nilAsReceiver,
  624. * object having Smalltalk signature -> unchanged,
  625. * otherwise wrapped foreign (JS) object
  626. */
  627. this.asReceiver = function (o) {
  628. if (o == null) return nilAsReceiver;
  629. else if (o.klass != null) return o;
  630. else return globals.JSObjectProxy._on_(o);
  631. };
  632. }
  633. var api = {};
  634. var brikz = new Brikz(api);
  635. /* Making smalltalk that can load */
  636. brikz.smalltalkGlobals = SmalltalkGlobalsBrik;
  637. brikz.root = RootBrik;
  638. brikz.selectors = SelectorsBrik;
  639. brikz.organize = OrganizeBrik;
  640. brikz.selectorConversion = SelectorConversionBrik;
  641. brikz.packages = PackagesBrik;
  642. brikz.classes = ClassesBrik;
  643. brikz.methods = MethodsBrik;
  644. brikz.traits = TraitsBrik;
  645. brikz.stInit = SmalltalkInitBrik;
  646. brikz.augments = AugmentsBrik;
  647. brikz.asReceiver = AsReceiverBrik;
  648. brikz.amd = AMDBrik;
  649. brikz.rebuild();
  650. return {
  651. api: api,
  652. nil/* TODO deprecate */: brikz.root.nilAsReceiver,
  653. nilAsReceiver: brikz.root.nilAsReceiver,
  654. dnu/* TODO deprecate */: brikz.root.nilAsClass,
  655. nilAsClass: brikz.root.nilAsClass,
  656. globals: brikz.smalltalkGlobals.globals,
  657. asReceiver: brikz.asReceiver.asReceiver
  658. };
  659. });