greybel-interpreter 0.1.0

package/dist/custom-types/number.js

@@ -0,0 +1,41 @@
+"use strict";
+var __extends = (this && this.__extends) || (function () {
+    var extendStatics = function (d, b) {
+        extendStatics = Object.setPrototypeOf ||
+            ({ __proto__: [] } instanceof Array && function (d, b) { d.__proto__ = b; }) ||
+            function (d, b) { for (var p in b) if (Object.prototype.hasOwnProperty.call(b, p)) d[p] = b[p]; };
+        return extendStatics(d, b);
+    };
+    return function (d, b) {
+        if (typeof b !== "function" && b !== null)
+            throw new TypeError("Class extends value " + String(b) + " is not a constructor or null");
+        extendStatics(d, b);
+        function __() { this.constructor = d; }
+        d.prototype = b === null ? Object.create(b) : (__.prototype = b.prototype, new __());
+    };
+})();
+Object.defineProperty(exports, "__esModule", { value: true });
+var custom_type_1 = require("../types/custom-type");
+var CustomNumber = /** @class */ (function (_super) {
+    __extends(CustomNumber, _super);
+    function CustomNumber(value) {
+        var _this = _super.call(this) || this;
+        _this.value = value;
+        return _this;
+    }
+    CustomNumber.prototype.getType = function () {
+        return 'number';
+    };
+    CustomNumber.prototype.valueOf = function () {
+        return this.value;
+    };
+    CustomNumber.prototype.toString = function () {
+        return this.value.toString();
+    };
+    CustomNumber.prototype.fork = function () {
+        return new CustomNumber(this.value);
+    };
+    CustomNumber.intrinsics = new Map();
+    return CustomNumber;
+}(custom_type_1.CustomLiteralType));
+exports.default = CustomNumber;

package/dist/custom-types/string.d.ts

@@ -0,0 +1,21 @@
+import { CustomLiteralType } from '../types/custom-type';
+export declare class CustomStringIterator implements Iterator<string> {
+    value: string;
+    index: number;
+    constructor(value: string);
+    next(): IteratorResult<string>;
+}
+export default class CustomString extends CustomLiteralType {
+    static intrinsics: Map<string, Function>;
+    value: string;
+    static isNumber(value: string): boolean;
+    constructor(value: string);
+    slice(a: CustomLiteralType, b: CustomLiteralType): CustomString;
+    [Symbol.iterator](): CustomStringIterator;
+    toIndex(value: string): number;
+    callMethod(method: string[], ...args: any[]): any;
+    getType(): string;
+    valueOf(): string | null;
+    toString(): string;
+    fork(): CustomString;
+}

package/dist/custom-types/string.js

@@ -0,0 +1,132 @@
+"use strict";
+var __extends = (this && this.__extends) || (function () {
+    var extendStatics = function (d, b) {
+        extendStatics = Object.setPrototypeOf ||
+            ({ __proto__: [] } instanceof Array && function (d, b) { d.__proto__ = b; }) ||
+            function (d, b) { for (var p in b) if (Object.prototype.hasOwnProperty.call(b, p)) d[p] = b[p]; };
+        return extendStatics(d, b);
+    };
+    return function (d, b) {
+        if (typeof b !== "function" && b !== null)
+            throw new TypeError("Class extends value " + String(b) + " is not a constructor or null");
+        extendStatics(d, b);
+        function __() { this.constructor = d; }
+        d.prototype = b === null ? Object.create(b) : (__.prototype = b.prototype, new __());
+    };
+})();
+var __read = (this && this.__read) || function (o, n) {
+    var m = typeof Symbol === "function" && o[Symbol.iterator];
+    if (!m) return o;
+    var i = m.call(o), r, ar = [], e;
+    try {
+        while ((n === void 0 || n-- > 0) && !(r = i.next()).done) ar.push(r.value);
+    }
+    catch (error) { e = { error: error }; }
+    finally {
+        try {
+            if (r && !r.done && (m = i["return"])) m.call(i);
+        }
+        finally { if (e) throw e.error; }
+    }
+    return ar;
+};
+var __spreadArray = (this && this.__spreadArray) || function (to, from, pack) {
+    if (pack || arguments.length === 2) for (var i = 0, l = from.length, ar; i < l; i++) {
+        if (ar || !(i in from)) {
+            if (!ar) ar = Array.prototype.slice.call(from, 0, i);
+            ar[i] = from[i];
+        }
+    }
+    return to.concat(ar || Array.prototype.slice.call(from));
+};
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.CustomStringIterator = void 0;
+var custom_type_1 = require("../types/custom-type");
+var CustomStringIterator = /** @class */ (function () {
+    function CustomStringIterator(value) {
+        var me = this;
+        me.value = value;
+        me.index = 0;
+    }
+    CustomStringIterator.prototype.next = function () {
+        var me = this;
+        if (me.index === me.value.length) {
+            return {
+                value: null,
+                done: true
+            };
+        }
+        return {
+            value: me.value[me.index++],
+            done: false
+        };
+    };
+    return CustomStringIterator;
+}());
+exports.CustomStringIterator = CustomStringIterator;
+var CustomString = /** @class */ (function (_super) {
+    __extends(CustomString, _super);
+    function CustomString(value) {
+        var _this = _super.call(this) || this;
+        _this.value = value;
+        return _this;
+    }
+    CustomString.isNumber = function (value) {
+        return !Number.isNaN(Number(value));
+    };
+    CustomString.prototype.slice = function (a, b) {
+        return new CustomString(this.value.slice(a.valueOf(), b.valueOf()));
+    };
+    CustomString.prototype[Symbol.iterator] = function () {
+        return new CustomStringIterator(this.value);
+    };
+    CustomString.prototype.toIndex = function (value) {
+        var me = this;
+        var casted = Number(value);
+        return casted < 0 ? me.value.length + casted : casted;
+    };
+    CustomString.prototype.callMethod = function (method) {
+        var _a;
+        var args = [];
+        for (var _i = 1; _i < arguments.length; _i++) {
+            args[_i - 1] = arguments[_i];
+        }
+        if (method.length === 0) {
+            throw new Error('Unexpected method length');
+        }
+        var me = this;
+        var member = method[0].valueOf();
+        if (CustomString.isNumber(member)) {
+            var index = me.toIndex(member);
+            if (!me.value[index]) {
+                console.error(method, member, args);
+                throw new Error("Unexpected index ".concat(index));
+            }
+            var value = new CustomString(me.value[index]);
+            if (method.length > 1) {
+                return value.callMethod.apply(value, __spreadArray([method.slice(1)], __read(args), false));
+            }
+            return value;
+        }
+        if (!CustomString.intrinsics.has(member)) {
+            throw new Error("Cannot access ".concat(member, " in string"));
+        }
+        return (_a = CustomString.intrinsics.get(member)).call.apply(_a, __spreadArray([me], __read(args), false));
+    };
+    CustomString.prototype.getType = function () {
+        return 'string';
+    };
+    CustomString.prototype.valueOf = function () {
+        var me = this;
+        return me.value.length === 0 ? null : me.value;
+    };
+    CustomString.prototype.toString = function () {
+        return "\"".concat(this.value.toString(), "\"");
+    };
+    CustomString.prototype.fork = function () {
+        return new CustomString(this.value);
+    };
+    CustomString.intrinsics = new Map();
+    return CustomString;
+}(custom_type_1.CustomLiteralType));
+exports.default = CustomString;

package/dist/expressions/assign.d.ts

@@ -0,0 +1,12 @@
+import { ASTAssignmentStatement } from 'greybel-core';
+import { Expression } from '../types/expression';
+import { OperationContext } from '../context';
+export declare class ExpressionSegment {
+    left: any;
+    right: any;
+    constructor(left: any, right: any);
+}
+export default class AssignExpression extends Expression {
+    constructor(ast: ASTAssignmentStatement, visit: Function);
+    get(operationContext: OperationContext, parentExpr: any): Promise<any>;
+}

package/dist/expressions/assign.js

@@ -0,0 +1,156 @@
+"use strict";
+var __extends = (this && this.__extends) || (function () {
+    var extendStatics = function (d, b) {
+        extendStatics = Object.setPrototypeOf ||
+            ({ __proto__: [] } instanceof Array && function (d, b) { d.__proto__ = b; }) ||
+            function (d, b) { for (var p in b) if (Object.prototype.hasOwnProperty.call(b, p)) d[p] = b[p]; };
+        return extendStatics(d, b);
+    };
+    return function (d, b) {
+        if (typeof b !== "function" && b !== null)
+            throw new TypeError("Class extends value " + String(b) + " is not a constructor or null");
+        extendStatics(d, b);
+        function __() { this.constructor = d; }
+        d.prototype = b === null ? Object.create(b) : (__.prototype = b.prototype, new __());
+    };
+})();
+var __awaiter = (this && this.__awaiter) || function (thisArg, _arguments, P, generator) {
+    function adopt(value) { return value instanceof P ? value : new P(function (resolve) { resolve(value); }); }
+    return new (P || (P = Promise))(function (resolve, reject) {
+        function fulfilled(value) { try { step(generator.next(value)); } catch (e) { reject(e); } }
+        function rejected(value) { try { step(generator["throw"](value)); } catch (e) { reject(e); } }
+        function step(result) { result.done ? resolve(result.value) : adopt(result.value).then(fulfilled, rejected); }
+        step((generator = generator.apply(thisArg, _arguments || [])).next());
+    });
+};
+var __generator = (this && this.__generator) || function (thisArg, body) {
+    var _ = { label: 0, sent: function() { if (t[0] & 1) throw t[1]; return t[1]; }, trys: [], ops: [] }, f, y, t, g;
+    return g = { next: verb(0), "throw": verb(1), "return": verb(2) }, typeof Symbol === "function" && (g[Symbol.iterator] = function() { return this; }), g;
+    function verb(n) { return function (v) { return step([n, v]); }; }
+    function step(op) {
+        if (f) throw new TypeError("Generator is already executing.");
+        while (_) try {
+            if (f = 1, y && (t = op[0] & 2 ? y["return"] : op[0] ? y["throw"] || ((t = y["return"]) && t.call(y), 0) : y.next) && !(t = t.call(y, op[1])).done) return t;
+            if (y = 0, t) op = [op[0] & 2, t.value];
+            switch (op[0]) {
+                case 0: case 1: t = op; break;
+                case 4: _.label++; return { value: op[1], done: false };
+                case 5: _.label++; y = op[1]; op = [0]; continue;
+                case 7: op = _.ops.pop(); _.trys.pop(); continue;
+                default:
+                    if (!(t = _.trys, t = t.length > 0 && t[t.length - 1]) && (op[0] === 6 || op[0] === 2)) { _ = 0; continue; }
+                    if (op[0] === 3 && (!t || (op[1] > t[0] && op[1] < t[3]))) { _.label = op[1]; break; }
+                    if (op[0] === 6 && _.label < t[1]) { _.label = t[1]; t = op; break; }
+                    if (t && _.label < t[2]) { _.label = t[2]; _.ops.push(op); break; }
+                    if (t[2]) _.ops.pop();
+                    _.trys.pop(); continue;
+            }
+            op = body.call(thisArg, _);
+        } catch (e) { op = [6, e]; y = 0; } finally { f = t = 0; }
+        if (op[0] & 5) throw op[1]; return { value: op[0] ? op[1] : void 0, done: true };
+    }
+};
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.ExpressionSegment = void 0;
+var operation_1 = require("../types/operation");
+var expression_1 = require("../types/expression");
+var custom_type_1 = require("../types/custom-type");
+var typer_1 = require("../typer");
+var ExpressionSegment = /** @class */ (function () {
+    function ExpressionSegment(left, right) {
+        var me = this;
+        me.left = left;
+        me.right = right;
+    }
+    return ExpressionSegment;
+}());
+exports.ExpressionSegment = ExpressionSegment;
+var AssignExpression = /** @class */ (function (_super) {
+    __extends(AssignExpression, _super);
+    function AssignExpression(ast, visit) {
+        var _this = _super.call(this) || this;
+        var me = _this;
+        var buildExpression = function (node) {
+            return new ExpressionSegment(visit(node.variable), visit(node.init));
+        };
+        me.ast = ast;
+        me.expr = buildExpression(ast);
+        return _this;
+    }
+    AssignExpression.prototype.get = function (operationContext, parentExpr) {
+        return __awaiter(this, void 0, void 0, function () {
+            var me, evaluate;
+            return __generator(this, function (_a) {
+                switch (_a.label) {
+                    case 0:
+                        me = this;
+                        evaluate = function (node) {
+                            return __awaiter(this, void 0, void 0, function () {
+                                var left, right, pathLength, origin, handlePath, context;
+                                return __generator(this, function (_a) {
+                                    switch (_a.label) {
+                                        case 0:
+                                            if (!(node.left instanceof expression_1.Expression)) {
+                                                operationContext.debugger.raise('Unexpected left assignment', me, node.left);
+                                            }
+                                            return [4 /*yield*/, node.left.get(operationContext, me.expr)];
+                                        case 1:
+                                            left = _a.sent();
+                                            right = node.right;
+                                            if (!(0, typer_1.isCustomValue)(right)) return [3 /*break*/, 2];
+                                            right = right;
+                                            return [3 /*break*/, 9];
+                                        case 2:
+                                            if (!(node.right instanceof expression_1.Expression)) return [3 /*break*/, 4];
+                                            return [4 /*yield*/, right.get(operationContext)];
+                                        case 3:
+                                            right = _a.sent();
+                                            return [3 /*break*/, 9];
+                                        case 4:
+                                            if (!(node.right instanceof operation_1.Operation)) return [3 /*break*/, 8];
+                                            return [4 /*yield*/, right.get(operationContext)];
+                                        case 5:
+                                            right = _a.sent();
+                                            pathLength = left.path.length;
+                                            if (!(right instanceof operation_1.FunctionOperationBase && pathLength > 1)) return [3 /*break*/, 7];
+                                            return [4 /*yield*/, operationContext.get(left.path.slice(0, pathLength - 1))];
+                                        case 6:
+                                            origin = _a.sent();
+                                            if ((0, typer_1.isCustomMap)(origin)) {
+                                                right = right.fork(origin);
+                                            }
+                                            _a.label = 7;
+                                        case 7: return [3 /*break*/, 9];
+                                        case 8:
+                                            operationContext.debugger.raise('Unexpected right assignment', me, right);
+                                            _a.label = 9;
+                                        case 9:
+                                            if (!left.handle) return [3 /*break*/, 12];
+                                            if (!(left.handle instanceof custom_type_1.CustomObjectType)) return [3 /*break*/, 11];
+                                            handlePath = left.path;
+                                            context = left.handle;
+                                            return [4 /*yield*/, context.set(handlePath, right)];
+                                        case 10:
+                                            _a.sent();
+                                            return [2 /*return*/, true];
+                                        case 11:
+                                            operationContext.debugger.raise('Unexpected left assignment', me, left);
+                                            _a.label = 12;
+                                        case 12: return [4 /*yield*/, operationContext.set(left.path, right)];
+                                        case 13:
+                                            _a.sent();
+                                            return [2 /*return*/, true];
+                                    }
+                                });
+                            });
+                        };
+                        operationContext.debugger.debug('AssignExpression', 'get', 'expr', me.expr);
+                        return [4 /*yield*/, evaluate(me.expr)];
+                    case 1: return [2 /*return*/, _a.sent()];
+                }
+            });
+        });
+    };
+    return AssignExpression;
+}(expression_1.Expression));
+exports.default = AssignExpression;

package/dist/expressions/binary-negated-expression.d.ts

@@ -0,0 +1,18 @@
+import { ASTUnaryExpression } from 'greybel-core';
+import { Expression } from '../types/expression';
+import { OperationContext } from '../context';
+import { CustomType } from '../types/custom-type';
+export declare const toPrimitive: (v: CustomType | any) => any;
+export declare type OperationMap = {
+    [key: string]: (a: CustomType) => any;
+};
+export declare class ExpressionSegment {
+    operator: string;
+    arg: any;
+    constructor(operator: string, arg: any);
+}
+export default class BinaryNegatedExpression extends Expression {
+    expr: ExpressionSegment;
+    constructor(ast: ASTUnaryExpression, visit: Function);
+    get(operationContext: OperationContext): any;
+}

package/dist/expressions/binary-negated-expression.js

@@ -0,0 +1,115 @@
+"use strict";
+var __extends = (this && this.__extends) || (function () {
+    var extendStatics = function (d, b) {
+        extendStatics = Object.setPrototypeOf ||
+            ({ __proto__: [] } instanceof Array && function (d, b) { d.__proto__ = b; }) ||
+            function (d, b) { for (var p in b) if (Object.prototype.hasOwnProperty.call(b, p)) d[p] = b[p]; };
+        return extendStatics(d, b);
+    };
+    return function (d, b) {
+        if (typeof b !== "function" && b !== null)
+            throw new TypeError("Class extends value " + String(b) + " is not a constructor or null");
+        extendStatics(d, b);
+        function __() { this.constructor = d; }
+        d.prototype = b === null ? Object.create(b) : (__.prototype = b.prototype, new __());
+    };
+})();
+var __awaiter = (this && this.__awaiter) || function (thisArg, _arguments, P, generator) {
+    function adopt(value) { return value instanceof P ? value : new P(function (resolve) { resolve(value); }); }
+    return new (P || (P = Promise))(function (resolve, reject) {
+        function fulfilled(value) { try { step(generator.next(value)); } catch (e) { reject(e); } }
+        function rejected(value) { try { step(generator["throw"](value)); } catch (e) { reject(e); } }
+        function step(result) { result.done ? resolve(result.value) : adopt(result.value).then(fulfilled, rejected); }
+        step((generator = generator.apply(thisArg, _arguments || [])).next());
+    });
+};
+var __generator = (this && this.__generator) || function (thisArg, body) {
+    var _ = { label: 0, sent: function() { if (t[0] & 1) throw t[1]; return t[1]; }, trys: [], ops: [] }, f, y, t, g;
+    return g = { next: verb(0), "throw": verb(1), "return": verb(2) }, typeof Symbol === "function" && (g[Symbol.iterator] = function() { return this; }), g;
+    function verb(n) { return function (v) { return step([n, v]); }; }
+    function step(op) {
+        if (f) throw new TypeError("Generator is already executing.");
+        while (_) try {
+            if (f = 1, y && (t = op[0] & 2 ? y["return"] : op[0] ? y["throw"] || ((t = y["return"]) && t.call(y), 0) : y.next) && !(t = t.call(y, op[1])).done) return t;
+            if (y = 0, t) op = [op[0] & 2, t.value];
+            switch (op[0]) {
+                case 0: case 1: t = op; break;
+                case 4: _.label++; return { value: op[1], done: false };
+                case 5: _.label++; y = op[1]; op = [0]; continue;
+                case 7: op = _.ops.pop(); _.trys.pop(); continue;
+                default:
+                    if (!(t = _.trys, t = t.length > 0 && t[t.length - 1]) && (op[0] === 6 || op[0] === 2)) { _ = 0; continue; }
+                    if (op[0] === 3 && (!t || (op[1] > t[0] && op[1] < t[3]))) { _.label = op[1]; break; }
+                    if (op[0] === 6 && _.label < t[1]) { _.label = t[1]; t = op; break; }
+                    if (t && _.label < t[2]) { _.label = t[2]; _.ops.push(op); break; }
+                    if (t[2]) _.ops.pop();
+                    _.trys.pop(); continue;
+            }
+            op = body.call(thisArg, _);
+        } catch (e) { op = [6, e]; y = 0; } finally { f = t = 0; }
+        if (op[0] & 5) throw op[1]; return { value: op[0] ? op[1] : void 0, done: true };
+    }
+};
+var _a;
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.ExpressionSegment = exports.toPrimitive = void 0;
+var greybel_core_1 = require("greybel-core");
+var expression_1 = require("../types/expression");
+var typer_1 = require("../typer");
+var toPrimitive = function (v) {
+    return (0, typer_1.isCustomValue)(v) ? v.valueOf() : v;
+};
+exports.toPrimitive = toPrimitive;
+var OPERATIONS = (_a = {},
+    _a[greybel_core_1.Operator.Plus] = function (a) { return (0, exports.toPrimitive)(a); },
+    _a[greybel_core_1.Operator.Minus] = function (a) { return -(0, exports.toPrimitive)(a); },
+    _a);
+var ExpressionSegment = /** @class */ (function () {
+    function ExpressionSegment(operator, arg) {
+        var me = this;
+        me.operator = operator;
+        me.arg = arg;
+    }
+    return ExpressionSegment;
+}());
+exports.ExpressionSegment = ExpressionSegment;
+var BinaryNegatedExpression = /** @class */ (function (_super) {
+    __extends(BinaryNegatedExpression, _super);
+    function BinaryNegatedExpression(ast, visit) {
+        var _this = _super.call(this) || this;
+        var me = _this;
+        var buildExpression = function (node) {
+            return new ExpressionSegment(node.operator, visit(node.argument));
+        };
+        me.ast = ast;
+        me.expr = buildExpression(ast);
+        return _this;
+    }
+    BinaryNegatedExpression.prototype.get = function (operationContext) {
+        var me = this;
+        var evaluate = function (node) {
+            return __awaiter(this, void 0, void 0, function () {
+                var arg, _a;
+                return __generator(this, function (_b) {
+                    switch (_b.label) {
+                        case 0:
+                            if (!(0, typer_1.isCustomValue)(node.arg)) return [3 /*break*/, 1];
+                            _a = node.arg;
+                            return [3 /*break*/, 3];
+                        case 1: return [4 /*yield*/, node.arg.get(operationContext)];
+                        case 2:
+                            _a = _b.sent();
+                            _b.label = 3;
+                        case 3:
+                            arg = _a;
+                            return [2 /*return*/, (0, typer_1.cast)(OPERATIONS[node.operator](arg))];
+                    }
+                });
+            });
+        };
+        operationContext.debugger.debug('BinaryNegatedExpression', 'get', 'expr', me.expr);
+        return evaluate(me.expr);
+    };
+    return BinaryNegatedExpression;
+}(expression_1.Expression));
+exports.default = BinaryNegatedExpression;

package/dist/expressions/call.d.ts

@@ -0,0 +1,13 @@
+import { Expression } from '../types/expression';
+import { OperationContext } from '../context';
+export declare class ExpressionSegment {
+    path: any;
+    args: any[];
+    constructor(path: any, args: any[]);
+    resolveArgs(operationContext: OperationContext): Promise<any>;
+}
+export default class CallExpression extends Expression {
+    expr: ExpressionSegment;
+    constructor(ast: any, visit: Function);
+    get(operationContext: OperationContext, parentExpr: any): Promise<any>;
+}