@forthic/interp 0.1.0

package/dist/cjs/forthic/tokenizer.js

@@ -0,0 +1,335 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.PositionedString = exports.CodeLocation = exports.Tokenizer = exports.DLE = exports.Token = exports.TokenType = void 0;
+const ForthicError_1 = require("./ForthicError");
+// -------------------------------------
+// Tokenizer
+var TokenType;
+(function (TokenType) {
+    TokenType[TokenType["STRING"] = 1] = "STRING";
+    TokenType[TokenType["COMMENT"] = 2] = "COMMENT";
+    TokenType[TokenType["START_ARRAY"] = 3] = "START_ARRAY";
+    TokenType[TokenType["END_ARRAY"] = 4] = "END_ARRAY";
+    TokenType[TokenType["START_MODULE"] = 5] = "START_MODULE";
+    TokenType[TokenType["END_MODULE"] = 6] = "END_MODULE";
+    TokenType[TokenType["START_DEF"] = 7] = "START_DEF";
+    TokenType[TokenType["END_DEF"] = 8] = "END_DEF";
+    TokenType[TokenType["START_MEMO"] = 9] = "START_MEMO";
+    TokenType[TokenType["WORD"] = 10] = "WORD";
+    TokenType[TokenType["EOS"] = 11] = "EOS";
+})(TokenType || (exports.TokenType = TokenType = {}));
+class Token {
+    constructor(type, string, location) {
+        this.type = type;
+        this.string = string;
+        this.location = location;
+    }
+}
+exports.Token = Token;
+// 'Data Link Escape'
+exports.DLE = String.fromCharCode(16);
+class Tokenizer {
+    constructor(string, reference_location = null) {
+        if (!reference_location) {
+            reference_location = new CodeLocation({ screen_name: "<ad-hoc>" });
+        }
+        this.reference_location = reference_location;
+        this.line = reference_location.line;
+        this.column = reference_location.column;
+        this.input_string = this.unescape_string(string);
+        this.input_pos = 0; // This is the index into the input_string
+        this.whitespace = [" ", "\t", "\n", "\r", "(", ")", ","];
+        this.quote_chars = ['"', "'", "^", "\u0010"]; // DLE (Data Link Escape) character
+        // Token info
+        this.token_start_pos = 0;
+        this.token_end_pos = 0;
+        this.token_line = 0;
+        this.token_column = 0;
+        this.token_string = "";
+    }
+    next_token() {
+        this.clear_token_string();
+        return this.transition_from_START();
+    }
+    // ===================
+    // Helper functions
+    unescape_string(string) {
+        let result = string.replace(/&lt;/g, "<");
+        result = result.replace(/&gt;/g, ">");
+        return result;
+    }
+    clear_token_string() {
+        this.token_string = "";
+    }
+    note_start_token() {
+        this.token_start_pos = this.input_pos + this.reference_location.start_pos;
+        this.token_line = this.line;
+        this.token_column = this.column;
+    }
+    is_whitespace(char) {
+        return this.whitespace.indexOf(char) >= 0;
+    }
+    is_quote(char) {
+        return this.quote_chars.indexOf(char) >= 0;
+    }
+    is_triple_quote(index, char) {
+        if (!this.is_quote(char))
+            return false;
+        if (index + 2 >= this.input_string.length)
+            return false;
+        return (this.input_string[index + 1] === char &&
+            this.input_string[index + 2] === char);
+    }
+    is_start_memo(index) {
+        if (index + 1 >= this.input_string.length)
+            return false;
+        return (this.input_string[index] === "@" && this.input_string[index + 1] === ":");
+    }
+    advance_position(num_chars) {
+        let i;
+        if (num_chars >= 0) {
+            for (i = 0; i < num_chars; i++) {
+                if (this.input_string[this.input_pos] === "\n") {
+                    this.line += 1;
+                    this.column = 1;
+                }
+                else {
+                    this.column += 1;
+                }
+                this.input_pos += 1;
+            }
+        }
+        else {
+            for (i = 0; i < -num_chars; i++) {
+                this.input_pos -= 1;
+                if (this.input_pos < 0 || this.column < 0) {
+                    throw new ForthicError_1.ForthicError("tokenizer-107", `Tried advancing position backwards by ${-num_chars} but position is now invalid (${this.input_pos})`, "Check to see if you're trying to advance past the beginning of the input");
+                }
+                if (this.input_string[this.input_pos] === "\n") {
+                    this.line -= 1;
+                    this.column = 1;
+                }
+                else {
+                    this.column -= 1;
+                }
+            }
+            i = -i;
+        }
+        return i;
+    }
+    get_token_location() {
+        return new CodeLocation({
+            screen_name: this.reference_location.screen_name,
+            line: this.token_line,
+            column: this.token_column,
+            start_pos: this.token_start_pos,
+            end_pos: this.token_start_pos + this.token_string.length,
+        });
+    }
+    transition_from_START() {
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            this.note_start_token();
+            this.advance_position(1);
+            if (this.is_whitespace(char))
+                continue;
+            else if (char === "#")
+                return this.transition_from_COMMENT();
+            else if (char === ":")
+                return this.transition_from_START_DEFINITION();
+            else if (this.is_start_memo(this.input_pos - 1)) {
+                this.advance_position(1); // Skip over ":" in "@:"
+                return this.transition_from_START_MEMO();
+            }
+            else if (char === ";") {
+                this.token_string = char;
+                return new Token(TokenType.END_DEF, char, this.get_token_location());
+            }
+            else if (char === "[") {
+                this.token_string = char;
+                return new Token(TokenType.START_ARRAY, char, this.get_token_location());
+            }
+            else if (char === "]") {
+                this.token_string = char;
+                return new Token(TokenType.END_ARRAY, char, this.get_token_location());
+            }
+            else if (char === "{")
+                return this.transition_from_GATHER_MODULE();
+            else if (char === "}") {
+                this.token_string = char;
+                return new Token(TokenType.END_MODULE, char, this.get_token_location());
+            }
+            else if (this.is_triple_quote(this.input_pos - 1, char)) {
+                this.advance_position(2); // Skip over 2nd and 3rd quote chars
+                return this.transition_from_GATHER_TRIPLE_QUOTE_STRING(char);
+            }
+            else if (this.is_quote(char))
+                return this.transition_from_GATHER_STRING(char);
+            else {
+                this.advance_position(-1); // Back up to beginning of word
+                return this.transition_from_GATHER_WORD();
+            }
+        }
+        return new Token(TokenType.EOS, "", this.get_token_location());
+    }
+    transition_from_COMMENT() {
+        this.note_start_token();
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            this.token_string += char;
+            this.advance_position(1);
+            if (char === "\n") {
+                this.advance_position(-1);
+                break;
+            }
+        }
+        return new Token(TokenType.COMMENT, this.token_string, this.get_token_location());
+    }
+    transition_from_START_DEFINITION() {
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            this.advance_position(1);
+            if (this.is_whitespace(char))
+                continue;
+            else if (this.is_quote(char)) {
+                // throw new ForthixError(
+                //     TokenType.NO_QUOTES_IN_NAME,
+                //     120,
+                //     `Definition names can't have quotes in them: ${this.input_string.substr(start_pos, this.input_pos)}`,
+                // );
+            }
+            else {
+                this.advance_position(-1);
+                return this.transition_from_GATHER_DEFINITION_NAME();
+            }
+        }
+        throw new ForthicError_1.ForthicError("tokenizer-120", "Got EOS in START_DEFINITION", "Check to see if you're missing a closing character");
+    }
+    transition_from_START_MEMO() {
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            this.advance_position(1);
+            if (this.is_whitespace(char))
+                continue;
+            else if (this.is_quote(char))
+                throw new ForthicError_1.ForthicError("tokenizer-130", "Definitions shouldn't have quotes in them", "Check to see if you're missing a closing character");
+            else {
+                this.advance_position(-1);
+                return this.transition_from_GATHER_MEMO_NAME();
+            }
+        }
+        throw new ForthicError_1.ForthicError("tokenizer-130", "Got EOS in START_MEMO", "Check to see if you're missing a closing character");
+    }
+    gather_definition_name() {
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            this.advance_position(1);
+            if (this.is_whitespace(char))
+                break;
+            if (this.is_quote(char)) {
+                // throw new ForthixError(
+                //     TokenType.NO_QUOTES_IN_NAME,
+                //     153,
+                //     `Definition names can't have quotes in them: ${this.input_string.substr(start_pos, this.input_pos)}`,
+                // );
+            }
+            if (["[", "]", "{", "}"].indexOf(char) >= 0)
+                throw new ForthicError_1.ForthicError("tokenizer-153", `Definitions can't have '${char}' in them`, "Check to see if you're missing a closing character");
+            this.token_string += char;
+        }
+    }
+    transition_from_GATHER_DEFINITION_NAME() {
+        this.note_start_token();
+        this.gather_definition_name();
+        return new Token(TokenType.START_DEF, this.token_string, this.get_token_location());
+    }
+    transition_from_GATHER_MEMO_NAME() {
+        this.note_start_token();
+        this.gather_definition_name();
+        return new Token(TokenType.START_MEMO, this.token_string, this.get_token_location());
+    }
+    transition_from_GATHER_MODULE() {
+        this.note_start_token();
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            this.advance_position(1);
+            if (this.is_whitespace(char))
+                break;
+            else if (char === "}") {
+                this.advance_position(-1);
+                break;
+            }
+            else
+                this.token_string += char;
+        }
+        return new Token(TokenType.START_MODULE, this.token_string, this.get_token_location());
+    }
+    transition_from_GATHER_TRIPLE_QUOTE_STRING(delim) {
+        this.note_start_token();
+        const string_delimiter = delim;
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            if (char === string_delimiter &&
+                this.is_triple_quote(this.input_pos, char)) {
+                this.advance_position(3);
+                return new Token(TokenType.STRING, this.token_string, this.get_token_location());
+            }
+            else {
+                this.advance_position(1);
+                this.token_string += char;
+            }
+        }
+        throw new ForthicError_1.ForthicError("tokenizer-295", `Unterminated string: ${delim}${delim}${delim}${this.token_string}`, "Check to see if you're missing a closing quote");
+    }
+    transition_from_GATHER_STRING(delim) {
+        this.note_start_token();
+        const string_delimiter = delim;
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            this.advance_position(1);
+            if (char === string_delimiter)
+                return new Token(TokenType.STRING, this.token_string, this.get_token_location());
+            else
+                this.token_string += char;
+        }
+        throw new ForthicError_1.ForthicError("tokenizer-295", `Unterminated string: ${delim}${this.token_string}`, "Check to see if you're missing a closing quote");
+    }
+    transition_from_GATHER_WORD() {
+        this.note_start_token();
+        while (this.input_pos < this.input_string.length) {
+            const char = this.input_string[this.input_pos];
+            this.advance_position(1);
+            if (this.is_whitespace(char))
+                break;
+            if ([";", "[", "]", "{", "}", "#"].indexOf(char) >= 0) {
+                this.advance_position(-1);
+                break;
+            }
+            else
+                this.token_string += char;
+        }
+        return new Token(TokenType.WORD, this.token_string, this.get_token_location());
+    }
+}
+exports.Tokenizer = Tokenizer;
+class CodeLocation {
+    constructor({ screen_name = "<ad-hoc>", line = 1, column = 1, start_pos = 0, end_pos = 0, }) {
+        this.screen_name = screen_name;
+        this.line = line;
+        this.column = column;
+        this.start_pos = start_pos;
+        this.end_pos = end_pos;
+    }
+}
+exports.CodeLocation = CodeLocation;
+class PositionedString {
+    constructor(string, location) {
+        this.string = string;
+        this.location = location;
+    }
+    valueOf() {
+        return this.string;
+    }
+}
+exports.PositionedString = PositionedString;
+//# sourceMappingURL=tokenizer.js.map

package/dist/cjs/forthic/tokenizer.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"tokenizer.js","sourceRoot":"","sources":["../../../src/forthic/tokenizer.ts"],"names":[],"mappings":";;;AAAA,iDAA6D;AAE7D,wCAAwC;AACxC,YAAY;AACZ,IAAY,SAYX;AAZD,WAAY,SAAS;IACnB,6CAAU,CAAA;IACV,+CAAO,CAAA;IACP,uDAAW,CAAA;IACX,mDAAS,CAAA;IACT,yDAAY,CAAA;IACZ,qDAAU,CAAA;IACV,mDAAS,CAAA;IACT,+CAAO,CAAA;IACP,qDAAU,CAAA;IACV,0CAAI,CAAA;IACJ,wCAAG,CAAA;AACL,CAAC,EAZW,SAAS,yBAAT,SAAS,QAYpB;AAED,MAAa,KAAK;IAKhB,YAAY,IAAe,EAAE,MAAc,EAAE,QAAsB;QACjE,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;QACjB,IAAI,CAAC,MAAM,GAAG,MAAM,CAAC;QACrB,IAAI,CAAC,QAAQ,GAAG,QAAQ,CAAC;IAC3B,CAAC;CACF;AAVD,sBAUC;AAED,qBAAqB;AACR,QAAA,GAAG,GAAG,MAAM,CAAC,YAAY,CAAC,EAAE,CAAC,CAAC;AAE3C,MAAa,SAAS;IAcpB,YAAY,MAAc,EAAE,qBAA0C,IAAI;QACxE,IAAI,CAAC,kBAAkB,EAAE,CAAC;YACxB,kBAAkB,GAAG,IAAI,YAAY,CAAC,EAAE,WAAW,EAAE,UAAU,EAAE,CAAC,CAAC;QACrE,CAAC;QACD,IAAI,CAAC,kBAAkB,GAAG,kBAAkB,CAAC;QAC7C,IAAI,CAAC,IAAI,GAAG,kBAAkB,CAAC,IAAI,CAAC;QACpC,IAAI,CAAC,MAAM,GAAG,kBAAkB,CAAC,MAAM,CAAC;QACxC,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC,eAAe,CAAC,MAAM,CAAC,CAAC;QACjD,IAAI,CAAC,SAAS,GAAG,CAAC,CAAC,CAAC,0CAA0C;QAC9D,IAAI,CAAC,UAAU,GAAG,CAAC,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC;QACzD,IAAI,CAAC,WAAW,GAAG,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,QAAQ,CAAC,CAAC,CAAC,mCAAmC;QAEjF,aAAa;QACb,IAAI,CAAC,eAAe,GAAG,CAAC,CAAC;QACzB,IAAI,CAAC,aAAa,GAAG,CAAC,CAAC;QACvB,IAAI,CAAC,UAAU,GAAG,CAAC,CAAC;QACpB,IAAI,CAAC,YAAY,GAAG,CAAC,CAAC;QACtB,IAAI,CAAC,YAAY,GAAG,EAAE,CAAC;IACzB,CAAC;IAED,UAAU;QACR,IAAI,CAAC,kBAAkB,EAAE,CAAC;QAC1B,OAAO,IAAI,CAAC,qBAAqB,EAAE,CAAC;IACtC,CAAC;IAED,sBAAsB;IACtB,mBAAmB;IAEnB,eAAe,CAAC,MAAc;QAC5B,IAAI,MAAM,GAAG,MAAM,CAAC,OAAO,CAAC,OAAO,EAAE,GAAG,CAAC,CAAC;QAC1C,MAAM,GAAG,MAAM,CAAC,OAAO,CAAC,OAAO,EAAE,GAAG,CAAC,CAAC;QACtC,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,kBAAkB;QAChB,IAAI,CAAC,YAAY,GAAG,EAAE,CAAC;IACzB,CAAC;IAED,gBAAgB;QACd,IAAI,CAAC,eAAe,GAAG,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,kBAAkB,CAAC,SAAS,CAAC;QAC1E,IAAI,CAAC,UAAU,GAAG,IAAI,CAAC,IAAI,CAAC;QAC5B,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC,MAAM,CAAC;IAClC,CAAC;IAED,aAAa,CAAC,IAAY;QACxB,OAAO,IAAI,CAAC,UAAU,CAAC,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5C,CAAC;IAED,QAAQ,CAAC,IAAY;QACnB,OAAO,IAAI,CAAC,WAAW,CAAC,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC7C,CAAC;IAED,eAAe,CAAC,KAAa,EAAE,IAAY;QACzC,IAAI,CAAC,IAAI,CAAC,QAAQ,CAAC,IAAI,CAAC;YAAE,OAAO,KAAK,CAAC;QACvC,IAAI,KAAK,GAAG,CAAC,IAAI,IAAI,CAAC,YAAY,CAAC,MAAM;YAAE,OAAO,KAAK,CAAC;QACxD,OAAO,CACL,IAAI,CAAC,YAAY,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,IAAI;YACrC,IAAI,CAAC,YAAY,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,IAAI,CACtC,CAAC;IACJ,CAAC;IAED,aAAa,CAAC,KAAa;QACzB,IAAI,KAAK,GAAG,CAAC,IAAI,IAAI,CAAC,YAAY,CAAC,MAAM;YAAE,OAAO,KAAK,CAAC;QACxD,OAAO,CACL,IAAI,CAAC,YAAY,CAAC,KAAK,CAAC,KAAK,GAAG,IAAI,IAAI,CAAC,YAAY,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,GAAG,CACzE,CAAC;IACJ,CAAC;IAED,gBAAgB,CAAC,SAAiB;QAChC,IAAI,CAAC,CAAC;QACN,IAAI,SAAS,IAAI,CAAC,EAAE,CAAC;YACnB,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC/B,IAAI,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,KAAK,IAAI,EAAE,CAAC;oBAC/C,IAAI,CAAC,IAAI,IAAI,CAAC,CAAC;oBACf,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;gBAClB,CAAC;qBAAM,CAAC;oBACN,IAAI,CAAC,MAAM,IAAI,CAAC,CAAC;gBACnB,CAAC;gBACD,IAAI,CAAC,SAAS,IAAI,CAAC,CAAC;YACtB,CAAC;QACH,CAAC;aAAM,CAAC;YACN,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,SAAS,EAAE,CAAC,EAAE,EAAE,CAAC;gBAChC,IAAI,CAAC,SAAS,IAAI,CAAC,CAAC;gBACpB,IAAI,IAAI,CAAC,SAAS,GAAG,CAAC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;oBAC1C,MAAM,IAAI,2BAAY,CACpB,eAAe,EACf,yCAAyC,CAAC,SAAS,iCACjD,IAAI,CAAC,SACP,GAAG,EACH,0EAA0E,CAC3E,CAAC;gBACJ,CAAC;gBACD,IAAI,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,KAAK,IAAI,EAAE,CAAC;oBAC/C,IAAI,CAAC,IAAI,IAAI,CAAC,CAAC;oBACf,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;gBAClB,CAAC;qBAAM,CAAC;oBACN,IAAI,CAAC,MAAM,IAAI,CAAC,CAAC;gBACnB,CAAC;YACH,CAAC;YACD,CAAC,GAAG,CAAC,CAAC,CAAC;QACT,CAAC;QACD,OAAO,CAAC,CAAC;IACX,CAAC;IAED,kBAAkB;QAChB,OAAO,IAAI,YAAY,CAAC;YACtB,WAAW,EAAE,IAAI,CAAC,kBAAkB,CAAC,WAAW;YAChD,IAAI,EAAE,IAAI,CAAC,UAAU;YACrB,MAAM,EAAE,IAAI,CAAC,YAAY;YACzB,SAAS,EAAE,IAAI,CAAC,eAAe;YAC/B,OAAO,EAAE,IAAI,CAAC,eAAe,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM;SACzD,CAAC,CAAC;IACL,CAAC;IAED,qBAAqB;QACnB,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IAAI,CAAC,gBAAgB,EAAE,CAAC;YACxB,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YAEzB,IAAI,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC;gBAAE,SAAS;iBAClC,IAAI,IAAI,KAAK,GAAG;gBAAE,OAAO,IAAI,CAAC,uBAAuB,EAAE,CAAC;iBACxD,IAAI,IAAI,KAAK,GAAG;gBAAE,OAAO,IAAI,CAAC,gCAAgC,EAAE,CAAC;iBACjE,IAAI,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC,SAAS,GAAG,CAAC,CAAC,EAAE,CAAC;gBAChD,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC,wBAAwB;gBAClD,OAAO,IAAI,CAAC,0BAA0B,EAAE,CAAC;YAC3C,CAAC;iBAAM,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;gBACxB,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC;gBACzB,OAAO,IAAI,KAAK,CAAC,SAAS,CAAC,OAAO,EAAE,IAAI,EAAE,IAAI,CAAC,kBAAkB,EAAE,CAAC,CAAC;YACvE,CAAC;iBAAM,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;gBACxB,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC;gBACzB,OAAO,IAAI,KAAK,CACd,SAAS,CAAC,WAAW,EACrB,IAAI,EACJ,IAAI,CAAC,kBAAkB,EAAE,CAC1B,CAAC;YACJ,CAAC;iBAAM,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;gBACxB,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC;gBACzB,OAAO,IAAI,KAAK,CAAC,SAAS,CAAC,SAAS,EAAE,IAAI,EAAE,IAAI,CAAC,kBAAkB,EAAE,CAAC,CAAC;YACzE,CAAC;iBAAM,IAAI,IAAI,KAAK,GAAG;gBAAE,OAAO,IAAI,CAAC,6BAA6B,EAAE,CAAC;iBAChE,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;gBACtB,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC;gBACzB,OAAO,IAAI,KAAK,CAAC,SAAS,CAAC,UAAU,EAAE,IAAI,EAAE,IAAI,CAAC,kBAAkB,EAAE,CAAC,CAAC;YAC1E,CAAC;iBAAM,IAAI,IAAI,CAAC,eAAe,CAAC,IAAI,CAAC,SAAS,GAAG,CAAC,EAAE,IAAI,CAAC,EAAE,CAAC;gBAC1D,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC,oCAAoC;gBAC9D,OAAO,IAAI,CAAC,0CAA0C,CAAC,IAAI,CAAC,CAAC;YAC/D,CAAC;iBAAM,IAAI,IAAI,CAAC,QAAQ,CAAC,IAAI,CAAC;gBAC5B,OAAO,IAAI,CAAC,6BAA6B,CAAC,IAAI,CAAC,CAAC;iBAC7C,CAAC;gBACJ,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,+BAA+B;gBAC1D,OAAO,IAAI,CAAC,2BAA2B,EAAE,CAAC;YAC5C,CAAC;QACH,CAAC;QACD,OAAO,IAAI,KAAK,CAAC,SAAS,CAAC,GAAG,EAAE,EAAE,EAAE,IAAI,CAAC,kBAAkB,EAAE,CAAC,CAAC;IACjE,CAAC;IAED,uBAAuB;QACrB,IAAI,CAAC,gBAAgB,EAAE,CAAC;QACxB,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IAAI,CAAC,YAAY,IAAI,IAAI,CAAC;YAC1B,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YACzB,IAAI,IAAI,KAAK,IAAI,EAAE,CAAC;gBAClB,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC1B,MAAM;YACR,CAAC;QACH,CAAC;QACD,OAAO,IAAI,KAAK,CACd,SAAS,CAAC,OAAO,EACjB,IAAI,CAAC,YAAY,EACjB,IAAI,CAAC,kBAAkB,EAAE,CAC1B,CAAC;IACJ,CAAC;IAED,gCAAgC;QAC9B,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YAEzB,IAAI,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC;gBAAE,SAAS;iBAClC,IAAI,IAAI,CAAC,QAAQ,CAAC,IAAI,CAAC,EAAE,CAAC;gBAC7B,0BAA0B;gBAC1B,mCAAmC;gBACnC,WAAW;gBACX,4GAA4G;gBAC5G,KAAK;YACP,CAAC;iBAAM,CAAC;gBACN,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC1B,OAAO,IAAI,CAAC,sCAAsC,EAAE,CAAC;YACvD,CAAC;QACH,CAAC;QAED,MAAM,IAAI,2BAAY,CACpB,eAAe,EACf,6BAA6B,EAC7B,oDAAoD,CACrD,CAAC;IACJ,CAAC;IAED,0BAA0B;QACxB,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YAEzB,IAAI,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC;gBAAE,SAAS;iBAClC,IAAI,IAAI,CAAC,QAAQ,CAAC,IAAI,CAAC;gBAC1B,MAAM,IAAI,2BAAY,CACpB,eAAe,EACf,2CAA2C,EAC3C,oDAAoD,CACrD,CAAC;iBACC,CAAC;gBACJ,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC1B,OAAO,IAAI,CAAC,gCAAgC,EAAE,CAAC;YACjD,CAAC;QACH,CAAC;QAED,MAAM,IAAI,2BAAY,CACpB,eAAe,EACf,uBAAuB,EACvB,oDAAoD,CACrD,CAAC;IACJ,CAAC;IAED,sBAAsB;QACpB,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YACzB,IAAI,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC;gBAAE,MAAM;YACpC,IAAI,IAAI,CAAC,QAAQ,CAAC,IAAI,CAAC,EAAE,CAAC;gBACxB,0BAA0B;gBAC1B,mCAAmC;gBACnC,WAAW;gBACX,4GAA4G;gBAC5G,KAAK;YACP,CAAC;YACD,IAAI,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC;gBACzC,MAAM,IAAI,2BAAY,CACpB,eAAe,EACf,2BAA2B,IAAI,WAAW,EAC1C,oDAAoD,CACrD,CAAC;YACJ,IAAI,CAAC,YAAY,IAAI,IAAI,CAAC;QAC5B,CAAC;IACH,CAAC;IAED,sCAAsC;QACpC,IAAI,CAAC,gBAAgB,EAAE,CAAC;QACxB,IAAI,CAAC,sBAAsB,EAAE,CAAC;QAC9B,OAAO,IAAI,KAAK,CACd,SAAS,CAAC,SAAS,EACnB,IAAI,CAAC,YAAY,EACjB,IAAI,CAAC,kBAAkB,EAAE,CAC1B,CAAC;IACJ,CAAC;IAED,gCAAgC;QAC9B,IAAI,CAAC,gBAAgB,EAAE,CAAC;QACxB,IAAI,CAAC,sBAAsB,EAAE,CAAC;QAC9B,OAAO,IAAI,KAAK,CACd,SAAS,CAAC,UAAU,EACpB,IAAI,CAAC,YAAY,EACjB,IAAI,CAAC,kBAAkB,EAAE,CAC1B,CAAC;IACJ,CAAC;IAED,6BAA6B;QAC3B,IAAI,CAAC,gBAAgB,EAAE,CAAC;QACxB,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YACzB,IAAI,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC;gBAAE,MAAM;iBAC/B,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;gBACtB,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC1B,MAAM;YACR,CAAC;;gBAAM,IAAI,CAAC,YAAY,IAAI,IAAI,CAAC;QACnC,CAAC;QACD,OAAO,IAAI,KAAK,CACd,SAAS,CAAC,YAAY,EACtB,IAAI,CAAC,YAAY,EACjB,IAAI,CAAC,kBAAkB,EAAE,CAC1B,CAAC;IACJ,CAAC;IAED,0CAA0C,CAAC,KAAa;QACtD,IAAI,CAAC,gBAAgB,EAAE,CAAC;QACxB,MAAM,gBAAgB,GAAG,KAAK,CAAC;QAE/B,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IACE,IAAI,KAAK,gBAAgB;gBACzB,IAAI,CAAC,eAAe,CAAC,IAAI,CAAC,SAAS,EAAE,IAAI,CAAC,EAC1C,CAAC;gBACD,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;gBACzB,OAAO,IAAI,KAAK,CACd,SAAS,CAAC,MAAM,EAChB,IAAI,CAAC,YAAY,EACjB,IAAI,CAAC,kBAAkB,EAAE,CAC1B,CAAC;YACJ,CAAC;iBAAM,CAAC;gBACN,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;gBACzB,IAAI,CAAC,YAAY,IAAI,IAAI,CAAC;YAC5B,CAAC;QACH,CAAC;QACD,MAAM,IAAI,2BAAY,CACpB,eAAe,EACf,wBAAwB,KAAK,GAAG,KAAK,GAAG,KAAK,GAAG,IAAI,CAAC,YAAY,EAAE,EACnE,gDAAgD,CACjD,CAAC;IACJ,CAAC;IAED,6BAA6B,CAAC,KAAa;QACzC,IAAI,CAAC,gBAAgB,EAAE,CAAC;QACxB,MAAM,gBAAgB,GAAG,KAAK,CAAC;QAE/B,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YACzB,IAAI,IAAI,KAAK,gBAAgB;gBAC3B,OAAO,IAAI,KAAK,CACd,SAAS,CAAC,MAAM,EAChB,IAAI,CAAC,YAAY,EACjB,IAAI,CAAC,kBAAkB,EAAE,CAC1B,CAAC;;gBACC,IAAI,CAAC,YAAY,IAAI,IAAI,CAAC;QACjC,CAAC;QACD,MAAM,IAAI,2BAAY,CACpB,eAAe,EACf,wBAAwB,KAAK,GAAG,IAAI,CAAC,YAAY,EAAE,EACnD,gDAAgD,CACjD,CAAC;IACJ,CAAC;IAED,2BAA2B;QACzB,IAAI,CAAC,gBAAgB,EAAE,CAAC;QACxB,OAAO,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,EAAE,CAAC;YACjD,MAAM,IAAI,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC/C,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YACzB,IAAI,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC;gBAAE,MAAM;YACpC,IAAI,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;gBACtD,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC1B,MAAM;YACR,CAAC;;gBAAM,IAAI,CAAC,YAAY,IAAI,IAAI,CAAC;QACnC,CAAC;QACD,OAAO,IAAI,KAAK,CACd,SAAS,CAAC,IAAI,EACd,IAAI,CAAC,YAAY,EACjB,IAAI,CAAC,kBAAkB,EAAE,CAC1B,CAAC;IACJ,CAAC;CACF;AA7WD,8BA6WC;AAED,MAAa,YAAY;IAOvB,YAAY,EACV,WAAW,GAAG,UAAU,EACxB,IAAI,GAAG,CAAC,EACR,MAAM,GAAG,CAAC,EACV,SAAS,GAAG,CAAC,EACb,OAAO,GAAG,CAAC,GACZ;QACC,IAAI,CAAC,WAAW,GAAG,WAAW,CAAC;QAC/B,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;QACjB,IAAI,CAAC,MAAM,GAAG,MAAM,CAAC;QACrB,IAAI,CAAC,SAAS,GAAG,SAAS,CAAC;QAC3B,IAAI,CAAC,OAAO,GAAG,OAAO,CAAC;IACzB,CAAC;CACF;AApBD,oCAoBC;AAED,MAAa,gBAAgB;IAI3B,YAAY,MAAc,EAAE,QAAsB;QAChD,IAAI,CAAC,MAAM,GAAG,MAAM,CAAC;QACrB,IAAI,CAAC,QAAQ,GAAG,QAAQ,CAAC;IAC3B,CAAC;IAED,OAAO;QACL,OAAO,IAAI,CAAC,MAAM,CAAC;IACrB,CAAC;CACF;AAZD,4CAYC"}

package/dist/cjs/forthic/utils.d.ts

@@ -0,0 +1,11 @@
+export declare function is_string(value: any): boolean;
+export declare function is_object(value: any): boolean;
+export declare function is_record(value: any): boolean;
+export declare function is_array(value: any): boolean;
+export declare function is_empty_object(value: any): boolean;
+export declare function pretty_print(value: any): string;
+export declare function to_string(obj: any): string;
+export declare function is_valid_date(date: any): boolean;
+export declare function to_date(obj: any): Date | null;
+export declare function date_to_string(date: any): string;
+export declare function date_to_int(date: any): number;

package/dist/cjs/forthic/utils.js

@@ -0,0 +1,86 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.is_string = is_string;
+exports.is_object = is_object;
+exports.is_record = is_record;
+exports.is_array = is_array;
+exports.is_empty_object = is_empty_object;
+exports.pretty_print = pretty_print;
+exports.to_string = to_string;
+exports.is_valid_date = is_valid_date;
+exports.to_date = to_date;
+exports.date_to_string = date_to_string;
+exports.date_to_int = date_to_int;
+function is_string(value) {
+    return typeof value === "string" || value instanceof String;
+}
+function is_object(value) {
+    if (value === null)
+        return false;
+    return typeof value === "object" && !Array.isArray(value);
+}
+function is_record(value) {
+    return is_object(value);
+}
+function is_array(value) {
+    return typeof value === "object" && Array.isArray(value);
+}
+function is_empty_object(value) {
+    if (is_object(value)) {
+        return Object.keys(value).length == 0;
+    }
+    return false;
+}
+function pretty_print(value) {
+    return JSON.stringify(value, undefined, 4);
+}
+function to_string(obj) {
+    return pretty_print(obj);
+}
+function is_valid_date(date) {
+    if (date instanceof Date) {
+        return !isNaN(date.getTime());
+    }
+    else if (typeof date === "string" || typeof date === "number") {
+        const parsedDate = new Date(date);
+        return !isNaN(parsedDate.getTime());
+    }
+    return false;
+}
+function to_date(obj) {
+    let result;
+    if (obj instanceof Date) {
+        result = obj;
+    }
+    else if (is_valid_date(obj)) {
+        result = new Date(obj);
+    }
+    else {
+        return null;
+    }
+    result.setHours(0, 0, 0, 0);
+    return result;
+}
+function date_to_string(date) {
+    let result = "";
+    if (date instanceof Date) {
+        const m = date.getUTCMonth() + 1;
+        const d = date.getUTCDate();
+        const y = date.getUTCFullYear();
+        let m_str = `${m}`;
+        let d_str = `${d}`;
+        if (m < 10)
+            m_str = `0${m}`;
+        if (d < 10)
+            d_str = `0${d}`;
+        result = `${y}-${m_str}-${d_str}`;
+    }
+    return result;
+}
+function date_to_int(date) {
+    const str = date_to_string(date);
+    const digits = str.replaceAll("-", "");
+    const result = parseInt(digits);
+    return result;
+}
+//# sourceMappingURL=utils.js.map

package/dist/cjs/forthic/utils.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"utils.js","sourceRoot":"","sources":["../../../src/forthic/utils.ts"],"names":[],"mappings":";;AAAA,8BAEG;AAED,8BAGC;AAED,8BAEC;AAED,4BAEC;AAED,0CAKC;AAED,oCAEC;AAED,8BAEC;AAED,sCAQC;AAED,0BAWC;AAED,wCAcC;AAED,kCAKC;AA5EH,SAAgB,SAAS,CAAC,KAAU;IAChC,OAAO,OAAO,KAAK,KAAK,QAAQ,IAAI,KAAK,YAAY,MAAM,CAAC;AAC9D,CAAC;AAED,SAAgB,SAAS,CAAC,KAAU;IAClC,IAAI,KAAK,KAAK,IAAI;QAAE,OAAO,KAAK,CAAC;IACjC,OAAO,OAAO,KAAK,KAAK,QAAQ,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC;AAC5D,CAAC;AAED,SAAgB,SAAS,CAAC,KAAU;IAClC,OAAO,SAAS,CAAC,KAAK,CAAC,CAAC;AAC1B,CAAC;AAED,SAAgB,QAAQ,CAAC,KAAU;IACjC,OAAO,OAAO,KAAK,KAAK,QAAQ,IAAI,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC;AAC3D,CAAC;AAED,SAAgB,eAAe,CAAC,KAAU;IACxC,IAAI,SAAS,CAAC,KAAK,CAAC,EAAE,CAAC;QACrB,OAAO,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC;IACxC,CAAC;IACD,OAAO,KAAK,CAAC;AACf,CAAC;AAED,SAAgB,YAAY,CAAC,KAAU;IACrC,OAAO,IAAI,CAAC,SAAS,CAAC,KAAK,EAAE,SAAS,EAAE,CAAC,CAAC,CAAC;AAC7C,CAAC;AAED,SAAgB,SAAS,CAAC,GAAQ;IAChC,OAAO,YAAY,CAAC,GAAG,CAAC,CAAC;AAC3B,CAAC;AAED,SAAgB,aAAa,CAAC,IAAS;IACrC,IAAI,IAAI,YAAY,IAAI,EAAE,CAAC;QACzB,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC,CAAC;IAChC,CAAC;SAAM,IAAI,OAAO,IAAI,KAAK,QAAQ,IAAI,OAAO,IAAI,KAAK,QAAQ,EAAE,CAAC;QAChE,MAAM,UAAU,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC;QAClC,OAAO,CAAC,KAAK,CAAC,UAAU,CAAC,OAAO,EAAE,CAAC,CAAC;IACtC,CAAC;IACD,OAAO,KAAK,CAAC;AACf,CAAC;AAED,SAAgB,OAAO,CAAC,GAAQ;IAC9B,IAAI,MAAY,CAAC;IACjB,IAAI,GAAG,YAAY,IAAI,EAAE,CAAC;QACxB,MAAM,GAAG,GAAG,CAAC;IACf,CAAC;SAAM,IAAI,aAAa,CAAC,GAAG,CAAC,EAAE,CAAC;QAC9B,MAAM,GAAG,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC;IACzB,CAAC;SAAM,CAAC;QACN,OAAO,IAAI,CAAC;IACd,CAAC;IACD,MAAM,CAAC,QAAQ,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IAC5B,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,SAAgB,cAAc,CAAC,IAAS;IACtC,IAAI,MAAM,GAAG,EAAE,CAAC;IAChB,IAAI,IAAI,YAAY,IAAI,EAAE,CAAC;QACzB,MAAM,CAAC,GAAG,IAAI,CAAC,WAAW,EAAE,GAAG,CAAC,CAAC;QACjC,MAAM,CAAC,GAAG,IAAI,CAAC,UAAU,EAAE,CAAC;QAC5B,MAAM,CAAC,GAAG,IAAI,CAAC,cAAc,EAAE,CAAC;QAEhC,IAAI,KAAK,GAAG,GAAG,CAAC,EAAE,CAAC;QACnB,IAAI,KAAK,GAAG,GAAG,CAAC,EAAE,CAAC;QACnB,IAAI,CAAC,GAAG,EAAE;YAAE,KAAK,GAAG,IAAI,CAAC,EAAE,CAAC;QAC5B,IAAI,CAAC,GAAG,EAAE;YAAE,KAAK,GAAG,IAAI,CAAC,EAAE,CAAC;QAC5B,MAAM,GAAG,GAAG,CAAC,IAAI,KAAK,IAAI,KAAK,EAAE,CAAC;IACpC,CAAC;IACD,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,SAAgB,WAAW,CAAC,IAAS;IACnC,MAAM,GAAG,GAAG,cAAc,CAAC,IAAI,CAAC,CAAC;IACjC,MAAM,MAAM,GAAG,GAAG,CAAC,UAAU,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;IACvC,MAAM,MAAM,GAAG,QAAQ,CAAC,MAAM,CAAC,CAAC;IAChC,OAAO,MAAM,CAAC;AAChB,CAAC"}

package/dist/cjs/index.d.ts

@@ -0,0 +1,3 @@
+export * from "./forthic/interpreter.js";
+export * from "./forthic/tokenizer";
+export * from "./forthic/module.js";

package/dist/cjs/index.js

@@ -0,0 +1,20 @@
+"use strict";
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __exportStar = (this && this.__exportStar) || function(m, exports) {
+    for (var p in m) if (p !== "default" && !Object.prototype.hasOwnProperty.call(exports, p)) __createBinding(exports, m, p);
+};
+Object.defineProperty(exports, "__esModule", { value: true });
+__exportStar(require("./forthic/interpreter.js"), exports);
+__exportStar(require("./forthic/tokenizer"), exports);
+__exportStar(require("./forthic/module.js"), exports);
+//# sourceMappingURL=index.js.map

package/dist/cjs/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../src/index.ts"],"names":[],"mappings":";;;;;;;;;;;;;;;;AAAA,2DAAyC;AACzC,sDAAoC;AACpC,sDAAoC"}

package/dist/esm/forthic/ForthicError.d.ts

@@ -0,0 +1,19 @@
+export interface ICodeLocation {
+    screen_name: string;
+    line: number;
+    column: number;
+    start_pos: number;
+    end_pos: number;
+}
+export declare class ForthicError {
+    error_key: string;
+    title: string;
+    description: string;
+    location?: ICodeLocation;
+    caught_error: any;
+    constructor(error_key: string, title: string, description: string, location?: any);
+    set_caught_error(error: any): void;
+    get_title(): string;
+    get_description(): string;
+    get_error_stack(): this[];
+}

package/dist/esm/forthic/ForthicError.js

@@ -0,0 +1,39 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.ForthicError = void 0;
+class ForthicError {
+    constructor(error_key, title, description, location = null) {
+        this.error_key = error_key;
+        this.title = title;
+        this.description = description;
+        this.location = location;
+        console.log("ForthixError", { error_key, title, description, location });
+        this.caught_error = null;
+    }
+    set_caught_error(error) {
+        this.caught_error = error;
+    }
+    get_title() {
+        return this.title;
+    }
+    get_description() {
+        return `${this.description}`;
+    }
+    get_error_stack() {
+        const MAX_DEPTH = 100;
+        let cur_error = this;
+        const result = [cur_error];
+        for (let i = 0; i < MAX_DEPTH; i++) {
+            if (cur_error.caught_error) {
+                result.push(cur_error.caught_error);
+                cur_error = cur_error.caught_error;
+            }
+            else {
+                break;
+            }
+        }
+        return result.reverse();
+    }
+}
+exports.ForthicError = ForthicError;
+//# sourceMappingURL=ForthicError.js.map

package/dist/esm/forthic/ForthicError.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"ForthicError.js","sourceRoot":"","sources":["../../../src/forthic/ForthicError.ts"],"names":[],"mappings":";;;AAQA,MAAa,YAAY;IAOvB,YACE,SAAiB,EACjB,KAAa,EACb,WAAmB,EACnB,QAAQ,GAAG,IAAI;QAEf,IAAI,CAAC,SAAS,GAAG,SAAS,CAAC;QAC3B,IAAI,CAAC,KAAK,GAAG,KAAK,CAAC;QACnB,IAAI,CAAC,WAAW,GAAG,WAAW,CAAC;QAC/B,IAAI,CAAC,QAAQ,GAAG,QAAQ,CAAC;QACzB,OAAO,CAAC,GAAG,CAAC,cAAc,EAAE,EAAE,SAAS,EAAE,KAAK,EAAE,WAAW,EAAE,QAAQ,EAAE,CAAC,CAAC;QACzE,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC;IAC3B,CAAC;IAED,gBAAgB,CAAC,KAAU;QACzB,IAAI,CAAC,YAAY,GAAG,KAAK,CAAC;IAC5B,CAAC;IAED,SAAS;QACP,OAAO,IAAI,CAAC,KAAK,CAAC;IACpB,CAAC;IAED,eAAe;QACb,OAAO,GAAG,IAAI,CAAC,WAAW,EAAE,CAAC;IAC/B,CAAC;IAED,eAAe;QACb,MAAM,SAAS,GAAG,GAAG,CAAC;QAEtB,IAAI,SAAS,GAAG,IAAI,CAAC;QACrB,MAAM,MAAM,GAAG,CAAC,SAAS,CAAC,CAAC;QAC3B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE,CAAC;YACnC,IAAI,SAAS,CAAC,YAAY,EAAE,CAAC;gBAC3B,MAAM,CAAC,IAAI,CAAC,SAAS,CAAC,YAAY,CAAC,CAAC;gBACpC,SAAS,GAAG,SAAS,CAAC,YAAY,CAAC;YACrC,CAAC;iBAAM,CAAC;gBACN,MAAM;YACR,CAAC;QACH,CAAC;QACD,OAAO,MAAM,CAAC,OAAO,EAAE,CAAC;IAC1B,CAAC;CACF;AAhDD,oCAgDC"}

package/dist/esm/forthic/global_module/map_word.d.ts

@@ -0,0 +1,28 @@
+import type { Interpreter } from "../interpreter";
+type MapWordFlags = {
+    depth?: number;
+    interps?: number;
+    push_error?: boolean;
+    with_key?: boolean;
+};
+export declare class MapWord {
+    forthic: any;
+    forthic_location: any;
+    items: any[];
+    flags: MapWordFlags;
+    depth: number;
+    num_interps: number;
+    push_error?: boolean;
+    with_key?: boolean;
+    cur_index: number;
+    result: any[];
+    errors: any[];
+    is_debugging: boolean;
+    processing_item: boolean;
+    is_done: boolean;
+    constructor(items: any[], forthic: any, forthic_location: any, flags: MapWordFlags);
+    execute(interp: Interpreter): Promise<void>;
+    normal_execute(interp: Interpreter): Promise<void>;
+    map(interp: Interpreter, items: any[]): Promise<any[]>;
+}
+export {};