@forthic/interp 0.2.0 → 0.4.0

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

@@ -0,0 +1,70 @@
+import { CodeLocation } from "./tokenizer";
+declare class ForthicError extends Error {
+    private note;
+    private location?;
+    constructor(note: string, location?: CodeLocation);
+    getLocation(): CodeLocation;
+    getNote(): string;
+    getMessage(): string;
+}
+export declare class UnknownWordError extends ForthicError {
+    private word;
+    constructor(word: string, location?: CodeLocation);
+    getWord(): string;
+}
+export declare class InvalidVariableNameError extends ForthicError {
+    private var_name;
+    private addl_note;
+    constructor(var_name: string, addl_note: string, location?: CodeLocation);
+    getVarName(): string;
+    getAddlNote(): string;
+}
+export declare class UnknownScreenError extends ForthicError {
+    private screen_name;
+    constructor(screen_name: string, location?: CodeLocation);
+    getScreenName(): string;
+}
+export declare class UnknownModuleError extends ForthicError {
+    private module_name;
+    constructor(module_name: string, location?: CodeLocation);
+    getModuleName(): string;
+}
+export declare class TooManyAttemptsError extends ForthicError {
+    private num_attempts;
+    private max_attempts;
+    constructor(num_attempts: number, max_attempts: number, location?: CodeLocation);
+    getNumAttempts(): number;
+    getMaxAttempts(): number;
+}
+export declare class WordExecutionError extends ForthicError {
+    private word_name;
+    private error;
+    constructor(word_name: string, error: Error, location?: CodeLocation);
+    getWordName(): string;
+    getError(): Error;
+}
+export declare class ModuleError extends ForthicError {
+    private module_name;
+    private error;
+    constructor(module_name: string, error: Error, location?: CodeLocation);
+    getModuleName(): string;
+    getError(): Error;
+}
+export declare class StackUnderflowError extends ForthicError {
+    constructor(location?: CodeLocation);
+}
+export declare class UnknownTokenError extends ForthicError {
+    private token;
+    constructor(token: string, location?: CodeLocation);
+    getToken(): string;
+}
+export declare class MissingSemicolonError extends ForthicError {
+    constructor(location?: CodeLocation);
+}
+export declare class ExtraSemicolonError extends ForthicError {
+    constructor(location?: CodeLocation);
+}
+export declare class IntentionalStopError extends Error {
+    constructor(message: string);
+}
+export {};

package/dist/cjs/forthic/errors.js

@@ -0,0 +1,174 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.IntentionalStopError = exports.ExtraSemicolonError = exports.MissingSemicolonError = exports.UnknownTokenError = exports.StackUnderflowError = exports.ModuleError = exports.WordExecutionError = exports.TooManyAttemptsError = exports.UnknownModuleError = exports.UnknownScreenError = exports.InvalidVariableNameError = exports.UnknownWordError = void 0;
+class ForthicError extends Error {
+    constructor(note, location) {
+        const location_note = location ? ` at ${location.screen_name}:${location.line}:${location.column}` : "";
+        const message = `${note}${location_note}`;
+        super(message);
+        this.note = note;
+        this.location = location;
+    }
+    getLocation() {
+        return this.location;
+    }
+    getNote() {
+        return this.note;
+    }
+    getMessage() {
+        return this.message;
+    }
+}
+// ============================================================
+// Interpreter errors
+// Interpreter couldn't find word in dictionaries
+class UnknownWordError extends ForthicError {
+    constructor(word, location) {
+        const note = `Unknown word: ${word}`;
+        super(note, location);
+        this.word = word;
+        this.name = "UnknownWordError";
+    }
+    getWord() {
+        return this.word;
+    }
+}
+exports.UnknownWordError = UnknownWordError;
+// Variable name is not allowed
+class InvalidVariableNameError extends ForthicError {
+    constructor(var_name, addl_note, location) {
+        const note = `Invalid variable name: ${var_name}(${addl_note})`;
+        super(note, location);
+        this.var_name = var_name;
+        this.addl_note = addl_note;
+        this.name = "InvalidVariableNameError";
+    }
+    getVarName() {
+        return this.var_name;
+    }
+    getAddlNote() {
+        return this.addl_note;
+    }
+}
+exports.InvalidVariableNameError = InvalidVariableNameError;
+// Interpreter couldn't find screen
+class UnknownScreenError extends ForthicError {
+    constructor(screen_name, location) {
+        const note = `Unknown screen: ${screen_name}`;
+        super(note, location);
+        this.screen_name = screen_name;
+        this.name = "UnknownScreenError";
+    }
+    getScreenName() {
+        return this.screen_name;
+    }
+}
+exports.UnknownScreenError = UnknownScreenError;
+// Interpreter couldn't find module
+class UnknownModuleError extends ForthicError {
+    constructor(module_name, location) {
+        const note = `Unknown module: ${module_name}`;
+        super(note, location);
+        this.module_name = module_name;
+        this.name = "UnknownModuleError";
+    }
+    getModuleName() {
+        return this.module_name;
+    }
+}
+exports.UnknownModuleError = UnknownModuleError;
+class TooManyAttemptsError extends ForthicError {
+    constructor(num_attempts, max_attempts, location) {
+        const note = `Too many recovery attempts: ${num_attempts} of ${max_attempts}`;
+        super(note, location);
+        this.num_attempts = num_attempts;
+        this.max_attempts = max_attempts;
+        this.name = "TooManyAttemptsError";
+    }
+    getNumAttempts() {
+        return this.num_attempts;
+    }
+    getMaxAttempts() {
+        return this.max_attempts;
+    }
+}
+exports.TooManyAttemptsError = TooManyAttemptsError;
+class WordExecutionError extends ForthicError {
+    constructor(word_name, error, location) {
+        const note = `Error executing word: ${word_name}`;
+        super(note, location);
+        this.word_name = word_name;
+        this.error = error;
+        this.name = "WordExecutionError";
+    }
+    getWordName() {
+        return this.word_name;
+    }
+    getError() {
+        return this.error;
+    }
+}
+exports.WordExecutionError = WordExecutionError;
+class ModuleError extends ForthicError {
+    constructor(module_name, error, location) {
+        const note = `Error in module ${module_name}`;
+        super(note, location);
+        this.module_name = module_name;
+        this.error = error;
+        this.name = "ModuleError";
+    }
+    getModuleName() {
+        return this.module_name;
+    }
+    getError() {
+        return this.error;
+    }
+}
+exports.ModuleError = ModuleError;
+class StackUnderflowError extends ForthicError {
+    constructor(location) {
+        const note = `Stack underflow`;
+        super(note, location);
+        this.name = "StackUnderflowError";
+    }
+}
+exports.StackUnderflowError = StackUnderflowError;
+class UnknownTokenError extends ForthicError {
+    constructor(token, location) {
+        const note = `(Should never happen) Unknown type of token: ${token}`;
+        super(note, location);
+        this.token = token;
+        this.name = "UnknownTokenError";
+    }
+    getToken() {
+        return this.token;
+    }
+}
+exports.UnknownTokenError = UnknownTokenError;
+class MissingSemicolonError extends ForthicError {
+    constructor(location) {
+        const note = `Missing semicolon -- new definition started before previous one was complete`;
+        super(note, location);
+        this.name = "MissingSemicolonError";
+    }
+}
+exports.MissingSemicolonError = MissingSemicolonError;
+class ExtraSemicolonError extends ForthicError {
+    constructor(location) {
+        const note = `Extra semicolon -- no definition in progress`;
+        super(note, location);
+        this.name = "ExtraSemicolonError";
+    }
+}
+exports.ExtraSemicolonError = ExtraSemicolonError;
+// ============================================================
+// Misc errors
+// Error indicating intentional stop
+class IntentionalStopError extends Error {
+    constructor(message) {
+        super(message);
+        this.name = "IntentionalStopError";
+    }
+}
+exports.IntentionalStopError = IntentionalStopError;
+//# sourceMappingURL=errors.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"errors.js","sourceRoot":"","sources":["../../../src/forthic/errors.ts"],"names":[],"mappings":";;;AAEA,MAAM,YAAa,SAAQ,KAAK;IAC5B,YAAoB,IAAY,EAAU,QAAuB;QAC7D,MAAM,aAAa,GAAG,QAAQ,CAAC,CAAC,CAAC,OAAO,QAAQ,CAAC,WAAW,IAAI,QAAQ,CAAC,IAAI,IAAI,QAAQ,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;QACxG,MAAM,OAAO,GAAG,GAAG,IAAI,GAAG,aAAa,EAAE,CAAC;QAE1C,KAAK,CAAC,OAAO,CAAC,CAAC;QAJC,SAAI,GAAJ,IAAI,CAAQ;QAAU,aAAQ,GAAR,QAAQ,CAAe;IAKjE,CAAC;IAED,WAAW;QACP,OAAO,IAAI,CAAC,QAAQ,CAAC;IACzB,CAAC;IAED,OAAO;QACH,OAAO,IAAI,CAAC,IAAI,CAAC;IACrB,CAAC;IAED,UAAU;QACN,OAAO,IAAI,CAAC,OAAO,CAAC;IACxB,CAAC;CACJ;AAED,+DAA+D;AAC/D,qBAAqB;AAErB,iDAAiD;AACjD,MAAa,gBAAiB,SAAQ,YAAY;IAChD,YAAoB,IAAY,EAAE,QAAuB;QACvD,MAAM,IAAI,GAAG,iBAAiB,IAAI,EAAE,CAAC;QACrC,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFJ,SAAI,GAAJ,IAAI,CAAQ;QAG9B,IAAI,CAAC,IAAI,GAAG,kBAAkB,CAAC;IACjC,CAAC;IAED,OAAO;QACL,OAAO,IAAI,CAAC,IAAI,CAAC;IACnB,CAAC;CACF;AAVD,4CAUC;AAED,+BAA+B;AAC/B,MAAa,wBAAyB,SAAQ,YAAY;IACtD,YAAoB,QAAgB,EAAU,SAAiB,EAAE,QAAuB;QACpF,MAAM,IAAI,GAAG,0BAA0B,QAAQ,IAAI,SAAS,GAAG,CAAC;QAChE,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFN,aAAQ,GAAR,QAAQ,CAAQ;QAAU,cAAS,GAAT,SAAS,CAAQ;QAG3D,IAAI,CAAC,IAAI,GAAG,0BAA0B,CAAC;IAC3C,CAAC;IAED,UAAU;QACN,OAAO,IAAI,CAAC,QAAQ,CAAC;IACzB,CAAC;IAED,WAAW;QACP,OAAO,IAAI,CAAC,SAAS,CAAC;IAC1B,CAAC;CACJ;AAdD,4DAcC;AAGD,mCAAmC;AACnC,MAAa,kBAAmB,SAAQ,YAAY;IAChD,YAAoB,WAAmB,EAAE,QAAuB;QAC5D,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFN,gBAAW,GAAX,WAAW,CAAQ;QAGnC,IAAI,CAAC,IAAI,GAAG,oBAAoB,CAAC;IACrC,CAAC;IAED,aAAa;QACT,OAAO,IAAI,CAAC,WAAW,CAAC;IAC5B,CAAC;CACJ;AAVD,gDAUC;AAED,mCAAmC;AACnC,MAAa,kBAAmB,SAAQ,YAAY;IAChD,YAAoB,WAAmB,EAAE,QAAuB;QAC5D,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFN,gBAAW,GAAX,WAAW,CAAQ;QAGnC,IAAI,CAAC,IAAI,GAAG,oBAAoB,CAAC;IACrC,CAAC;IAED,aAAa;QACT,OAAO,IAAI,CAAC,WAAW,CAAC;IAC5B,CAAC;CACJ;AAVD,gDAUC;AAED,MAAa,oBAAqB,SAAQ,YAAY;IACpD,YAAoB,YAAoB,EAAU,YAAoB,EAAE,QAAuB;QAC7F,MAAM,IAAI,GAAG,+BAA+B,YAAY,OAAO,YAAY,EAAE,CAAC;QAC9E,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFJ,iBAAY,GAAZ,YAAY,CAAQ;QAAU,iBAAY,GAAZ,YAAY,CAAQ;QAGpE,IAAI,CAAC,IAAI,GAAG,sBAAsB,CAAC;IACrC,CAAC;IAED,cAAc;QACZ,OAAO,IAAI,CAAC,YAAY,CAAC;IAC3B,CAAC;IAED,cAAc;QACZ,OAAO,IAAI,CAAC,YAAY,CAAC;IAC3B,CAAC;CACF;AAdD,oDAcC;AAGD,MAAa,kBAAmB,SAAQ,YAAY;IAChD,YAAoB,SAAiB,EAAU,KAAY,EAAE,QAAuB;QAChF,MAAM,IAAI,GAAG,yBAAyB,SAAS,EAAE,CAAC;QAClD,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFN,cAAS,GAAT,SAAS,CAAQ;QAAU,UAAK,GAAL,KAAK,CAAO;QAGvD,IAAI,CAAC,IAAI,GAAG,oBAAoB,CAAC;IACrC,CAAC;IAED,WAAW;QACP,OAAO,IAAI,CAAC,SAAS,CAAC;IAC1B,CAAC;IAED,QAAQ;QACJ,OAAO,IAAI,CAAC,KAAK,CAAC;IACtB,CAAC;CACJ;AAdD,gDAcC;AAGD,MAAa,WAAY,SAAQ,YAAY;IACzC,YAAoB,WAAmB,EAAU,KAAY,EAAE,QAAuB;QAClF,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFN,gBAAW,GAAX,WAAW,CAAQ;QAAU,UAAK,GAAL,KAAK,CAAO;QAGzD,IAAI,CAAC,IAAI,GAAG,aAAa,CAAC;IAC9B,CAAC;IAED,aAAa;QACT,OAAO,IAAI,CAAC,WAAW,CAAC;IAC5B,CAAC;IAED,QAAQ;QACJ,OAAO,IAAI,CAAC,KAAK,CAAC;IACtB,CAAC;CACJ;AAdD,kCAcC;AAGD,MAAa,mBAAoB,SAAQ,YAAY;IACjD,YAAY,QAAuB;QAC/B,MAAM,IAAI,GAAG,iBAAiB,CAAC;QAC/B,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QACtB,IAAI,CAAC,IAAI,GAAG,qBAAqB,CAAC;IACtC,CAAC;CACJ;AAND,kDAMC;AAED,MAAa,iBAAkB,SAAQ,YAAY;IAC/C,YAAoB,KAAa,EAAE,QAAuB;QACtD,MAAM,IAAI,GAAG,gDAAgD,KAAK,EAAE,CAAC;QACrE,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFN,UAAK,GAAL,KAAK,CAAQ;QAG7B,IAAI,CAAC,IAAI,GAAG,mBAAmB,CAAC;IACpC,CAAC;IAED,QAAQ;QACJ,OAAO,IAAI,CAAC,KAAK,CAAC;IACtB,CAAC;CACJ;AAVD,8CAUC;AAED,MAAa,qBAAsB,SAAQ,YAAY;IACnD,YAAY,QAAuB;QAC/B,MAAM,IAAI,GAAG,8EAA8E,CAAC;QAC5F,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QACtB,IAAI,CAAC,IAAI,GAAG,uBAAuB,CAAC;IACxC,CAAC;CACJ;AAND,sDAMC;AAED,MAAa,mBAAoB,SAAQ,YAAY;IACjD,YAAY,QAAuB;QAC/B,MAAM,IAAI,GAAG,8CAA8C,CAAC;QAC5D,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QACtB,IAAI,CAAC,IAAI,GAAG,qBAAqB,CAAC;IACtC,CAAC;CACJ;AAND,kDAMC;AAED,+DAA+D;AAC/D,cAAc;AAEd,oCAAoC;AACpC,MAAa,oBAAqB,SAAQ,KAAK;IAC7C,YAAY,OAAe;QACzB,KAAK,CAAC,OAAO,CAAC,CAAC;QACf,IAAI,CAAC,IAAI,GAAG,sBAAsB,CAAC;IACrC,CAAC;CACF;AALD,oDAKC"}

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

@@ -1,5 +1,5 @@
 import { Module, Word } from "./module";
-import type { Interpreter } from "./interpreter";
+import { type Interpreter } from "./interpreter";
 export declare class GlobalModule extends Module {
     module_id: string;
     literal_handlers: Array<(value: any) => any>;
@@ -163,5 +163,6 @@ export declare class GlobalModule extends Module {
     word_JSON_to(interp: Interpreter): void;
     word_LOAD_SCREEN(interp: Interpreter): Promise<void>;
     word_dot_s(interp: Interpreter): void;
+    word_dot_S(interp: Interpreter): void;
     word_minus(interp: Interpreter): void;
 }

package/dist/cjs/forthic/global_module.js

@@ -2,10 +2,10 @@
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.GlobalModule = void 0;
 const module_1 = require("./module");
-const ForthicError_1 = require("./ForthicError");
 const utils_1 = require("./utils");
 const map_word_1 = require("./global_module/map_word");
 const tokenizer_1 = require("./tokenizer");
+const errors_1 = require("./errors");
 const DLE = String.fromCharCode(16); // ASCII char for "Data Link Escape" used as an untypeable quote
 class GlobalModule extends module_1.Module {
     constructor(interp) {
@@ -119,6 +119,7 @@ class GlobalModule extends module_1.Module {
         this.add_module_word("JSON>", this.word_JSON_to);
         this.add_module_word("LOAD-SCREEN", this.word_LOAD_SCREEN);
         this.add_module_word(".s", this.word_dot_s);
+        this.add_module_word(".S", this.word_dot_S);
         // --------------------
         // Date/time words
         this.add_module_word("AM", this.word_AM);
@@ -291,7 +292,7 @@ class GlobalModule extends module_1.Module {
         const module = interp.cur_module();
         varnames.forEach((v) => {
             if (v.match(/__.*/)) {
-                throw new ForthicError_1.ForthicError("global_module-696", `word_VARIABLES: variable names cannot begin with '__': '${JSON.stringify(v)}'`, "This is a reserved variable naming convention");
+                throw new errors_1.InvalidVariableNameError(v, "Variable names cannot begin with '__'", interp.get_string_location());
             }
             module.add_variable(v);
         });
@@ -2375,14 +2376,20 @@ class GlobalModule extends module_1.Module {
     }
     // ( -- )
     word_dot_s(interp) {
-        const stack = interp.stack;
+        const stack = interp.get_stack();
         if (stack.length > 0) {
             console.log(stack[stack.length - 1]);
         }
         else {
             console.log("<STACK EMPTY>");
         }
-        interp.halt();
+        throw new errors_1.IntentionalStopError(".s");
+    }
+    // ( -- )
+    word_dot_S(interp) {
+        const stack = interp.get_stack().reverse();
+        console.log(JSON.stringify(stack, null, 2));
+        throw new errors_1.IntentionalStopError(".S");
     }
     // ( a b -- a - b )
     word_minus(interp) {