@forthic/interp 0.14.0 → 0.16.0

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

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

package/dist/cjs/forthic/errors.js

@@ -6,12 +6,17 @@ class ForthicError extends Error {
     forthic;
     note;
     location;
-    constructor(forthic, note, location) {
+    cause;
+    constructor(forthic, note, location, cause) {
         const message = `${note}`;
         super(message);
         this.forthic = forthic;
         this.note = note;
         this.location = location;
+        this.cause = cause;
+        if (cause) {
+            this.cause = cause;
+        }
     }
     getDescription() {
         return get_error_description(this.forthic, this);
@@ -28,6 +33,9 @@ class ForthicError extends Error {
     getMessage() {
         return this.message;
     }
+    getCause() {
+        return this.cause;
+    }
 }
 exports.ForthicError = ForthicError;
 // ============================================================
@@ -35,9 +43,9 @@ exports.ForthicError = ForthicError;
 // Interpreter couldn't find word in dictionaries
 class UnknownWordError extends ForthicError {
     word;
-    constructor(forthic, word, location) {
+    constructor(forthic, word, location, cause) {
         const note = `Unknown word: ${word}`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.word = word;
         this.name = "UnknownWordError";
     }
@@ -50,9 +58,9 @@ exports.UnknownWordError = UnknownWordError;
 class InvalidVariableNameError extends ForthicError {
     var_name;
     addl_note;
-    constructor(forthic, var_name, addl_note, location) {
+    constructor(forthic, var_name, addl_note, location, cause) {
         const note = `Invalid variable name: ${var_name}(${addl_note})`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.var_name = var_name;
         this.addl_note = addl_note;
         this.name = "InvalidVariableNameError";
@@ -68,9 +76,9 @@ exports.InvalidVariableNameError = InvalidVariableNameError;
 // Interpreter couldn't find screen
 class UnknownScreenError extends ForthicError {
     screen_name;
-    constructor(forthic, screen_name, location) {
+    constructor(forthic, screen_name, location, cause) {
         const note = `Unknown screen: ${screen_name}`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.screen_name = screen_name;
         this.name = "UnknownScreenError";
     }
@@ -82,9 +90,9 @@ exports.UnknownScreenError = UnknownScreenError;
 // Interpreter couldn't find module
 class UnknownModuleError extends ForthicError {
     module_name;
-    constructor(forthic, module_name, location) {
+    constructor(forthic, module_name, location, cause) {
         const note = `Unknown module: ${module_name}`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.module_name = module_name;
         this.name = "UnknownModuleError";
     }
@@ -96,9 +104,9 @@ exports.UnknownModuleError = UnknownModuleError;
 class TooManyAttemptsError extends ForthicError {
     num_attempts;
     max_attempts;
-    constructor(forthic, num_attempts, max_attempts, location) {
+    constructor(forthic, num_attempts, max_attempts, location, cause) {
         const note = `Too many recovery attempts: ${num_attempts} of ${max_attempts}`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.num_attempts = num_attempts;
         this.max_attempts = max_attempts;
         this.name = "TooManyAttemptsError";
@@ -114,9 +122,9 @@ exports.TooManyAttemptsError = TooManyAttemptsError;
 class WordExecutionError extends ForthicError {
     word_name;
     error;
-    constructor(forthic, word_name, error, location) {
+    constructor(forthic, word_name, error, location, cause) {
         const note = `(${error.message}) when executing word ${word_name}`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.word_name = word_name;
         this.error = error;
         this.name = "WordExecutionError";
@@ -138,9 +146,9 @@ exports.WordExecutionError = WordExecutionError;
 class ModuleError extends ForthicError {
     module_name;
     error;
-    constructor(forthic, module_name, error, location) {
+    constructor(forthic, module_name, error, location, cause) {
         const note = `Error in module ${module_name}`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.module_name = module_name;
         this.error = error;
         this.name = "ModuleError";
@@ -154,18 +162,18 @@ class ModuleError extends ForthicError {
 }
 exports.ModuleError = ModuleError;
 class StackUnderflowError extends ForthicError {
-    constructor(forthic, location) {
+    constructor(forthic, location, cause) {
         const note = `Stack underflow`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.name = "StackUnderflowError";
     }
 }
 exports.StackUnderflowError = StackUnderflowError;
 class UnknownTokenError extends ForthicError {
     token;
-    constructor(forthic, token, location) {
+    constructor(forthic, token, location, cause) {
         const note = `(Should never happen) Unknown type of token: ${token}`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.token = token;
         this.name = "UnknownTokenError";
     }
@@ -175,17 +183,17 @@ class UnknownTokenError extends ForthicError {
 }
 exports.UnknownTokenError = UnknownTokenError;
 class MissingSemicolonError extends ForthicError {
-    constructor(forthic, location) {
+    constructor(forthic, location, cause) {
         const note = `Definition was missing its semicolon`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.name = "MissingSemicolonError";
     }
 }
 exports.MissingSemicolonError = MissingSemicolonError;
 class ExtraSemicolonError extends ForthicError {
-    constructor(forthic, location) {
+    constructor(forthic, location, cause) {
         const note = `Unexpected semicolon -- no definition in progress`;
-        super(forthic, note, location);
+        super(forthic, note, location, cause);
         this.name = "ExtraSemicolonError";
     }
 }

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

@@ -1 +1 @@
-{"version":3,"file":"errors.js","sourceRoot":"","sources":["../../../src/forthic/errors.ts"],"names":[],"mappings":";;;AAqMA,sDAqBC;AAxND,MAAa,YAAa,SAAQ,KAAK;IACf;IAAyB;IAAsB;IAAnE,YAAoB,OAAe,EAAU,IAAY,EAAU,QAAuB;QACtF,MAAM,OAAO,GAAG,GAAG,IAAI,EAAE,CAAC;QAE1B,KAAK,CAAC,OAAO,CAAC,CAAC;QAHC,YAAO,GAAP,OAAO,CAAQ;QAAU,SAAI,GAAJ,IAAI,CAAQ;QAAU,aAAQ,GAAR,QAAQ,CAAe;IAI1F,CAAC;IAED,cAAc;QACV,OAAO,qBAAqB,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC;IACrD,CAAC;IAED,WAAW;QACP,OAAO,IAAI,CAAC,QAAQ,CAAC;IACzB,CAAC;IAED,UAAU;QACN,OAAO,IAAI,CAAC,OAAO,CAAC;IACxB,CAAC;IAED,OAAO;QACH,OAAO,IAAI,CAAC,IAAI,CAAC;IACrB,CAAC;IAED,UAAU;QACN,OAAO,IAAI,CAAC,OAAO,CAAC;IACxB,CAAC;CACJ;AA1BD,oCA0BC;AAED,+DAA+D;AAC/D,qBAAqB;AAErB,iDAAiD;AACjD,MAAa,gBAAiB,SAAQ,YAAY;IACX;IAArC,YAAY,OAAe,EAAU,IAAY,EAAE,QAAuB;QACxE,MAAM,IAAI,GAAG,iBAAiB,IAAI,EAAE,CAAC;QACrC,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFI,SAAI,GAAJ,IAAI,CAAQ;QAG/C,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;IACjB;IAA0B;IAA/D,YAAY,OAAe,EAAU,QAAgB,EAAU,SAAiB,EAAE,QAAuB;QACrG,MAAM,IAAI,GAAG,0BAA0B,QAAQ,IAAI,SAAS,GAAG,CAAC;QAChE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFE,aAAQ,GAAR,QAAQ,CAAQ;QAAU,cAAS,GAAT,SAAS,CAAQ;QAG5E,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;IACX;IAArC,YAAY,OAAe,EAAU,WAAmB,EAAE,QAAuB;QAC7E,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFE,gBAAW,GAAX,WAAW,CAAQ;QAGpD,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;IACX;IAArC,YAAY,OAAe,EAAU,WAAmB,EAAE,QAAuB;QAC7E,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFE,gBAAW,GAAX,WAAW,CAAQ;QAGpD,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;IACf;IAA8B;IAAnE,YAAY,OAAe,EAAU,YAAoB,EAAU,YAAoB,EAAE,QAAuB;QAC9G,MAAM,IAAI,GAAG,+BAA+B,YAAY,OAAO,YAAY,EAAE,CAAC;QAC9E,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFI,iBAAY,GAAZ,YAAY,CAAQ;QAAU,iBAAY,GAAZ,YAAY,CAAQ;QAGrF,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;IACX;IAA2B;IAAhE,YAAY,OAAe,EAAU,SAAiB,EAAU,KAAY,EAAE,QAAuB;QACjG,MAAM,IAAI,GAAG,IAAI,KAAK,CAAC,OAAO,yBAAyB,SAAS,EAAE,CAAC;QACnE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFE,cAAS,GAAT,SAAS,CAAQ;QAAU,UAAK,GAAL,KAAK,CAAO;QAGxE,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;IAED,YAAY;QACR,IAAI,IAAI,CAAC,KAAK,YAAY,kBAAkB,EAAE,CAAC;YAC3C,OAAO,IAAI,CAAC,KAAK,CAAC,YAAY,EAAE,CAAC;QACrC,CAAC;QACD,OAAO,IAAI,CAAC,KAAK,CAAC;IACtB,CAAC;CACJ;AArBD,gDAqBC;AAGD,MAAa,WAAY,SAAQ,YAAY;IACJ;IAA6B;IAAlE,YAAY,OAAe,EAAU,WAAmB,EAAU,KAAY,EAAE,QAAuB;QACnG,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFE,gBAAW,GAAX,WAAW,CAAQ;QAAU,UAAK,GAAL,KAAK,CAAO;QAG1E,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,OAAe,EAAE,QAAuB;QAChD,MAAM,IAAI,GAAG,iBAAiB,CAAC;QAC/B,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAC/B,IAAI,CAAC,IAAI,GAAG,qBAAqB,CAAC;IACtC,CAAC;CACJ;AAND,kDAMC;AAED,MAAa,iBAAkB,SAAQ,YAAY;IACV;IAArC,YAAY,OAAe,EAAU,KAAa,EAAE,QAAuB;QACvE,MAAM,IAAI,GAAG,gDAAgD,KAAK,EAAE,CAAC;QACrE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAFE,UAAK,GAAL,KAAK,CAAQ;QAG9C,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,OAAe,EAAE,QAAuB;QAChD,MAAM,IAAI,GAAG,sCAAsC,CAAC;QACpD,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAC/B,IAAI,CAAC,IAAI,GAAG,uBAAuB,CAAC;IACxC,CAAC;CACJ;AAND,sDAMC;AAED,MAAa,mBAAoB,SAAQ,YAAY;IACjD,YAAY,OAAe,EAAE,QAAuB;QAChD,MAAM,IAAI,GAAG,mDAAmD,CAAC;QACjE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,CAAC,CAAC;QAC/B,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;AAED,+DAA+D;AAC/D,oBAAoB;AACpB,SAAgB,qBAAqB,CAAC,OAAe,EAAE,YAA0B;IAC7E,qDAAqD;IACrD,IAAI,CAAC,OAAO,IAAI,OAAO,KAAK,EAAE,IAAI,YAAY,CAAC,WAAW,EAAE,KAAK,SAAS,EAAE,CAAC;QACzE,OAAO,YAAY,CAAC,OAAO,EAAE,CAAC;IAClC,CAAC;IAED,mEAAmE;IACnE,MAAM,QAAQ,GAAG,YAAY,CAAC,WAAW,EAAE,CAAC;IAE5C,4DAA4D;IAC5D,MAAM,QAAQ,GAAG,QAAQ,CAAC,IAAI,CAAC;IAE/B,2BAA2B;IAC3B,MAAM,KAAK,GAAG,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;IAErD,6GAA6G;IAC7G,MAAM,UAAU,GAAG,GAAG,CAAC,MAAM,CAAC,QAAQ,CAAC,MAAM,GAAC,CAAC,CAAC,GAAG,GAAG,CAAC,MAAM,CAAC,QAAQ,CAAC,OAAO,GAAG,QAAQ,CAAC,SAAS,CAAC,CAAC;IAErG,6DAA6D;IAC7D,MAAM,aAAa,GAAG,GAAG,YAAY,CAAC,OAAO,EAAE,YAAY,QAAQ,cAAc,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,UAAU,UAAU,CAAC;IACpJ,OAAO,aAAa,CAAC;AACzB,CAAC"}
+{"version":3,"file":"errors.js","sourceRoot":"","sources":["../../../src/forthic/errors.ts"],"names":[],"mappings":";;;AA4MA,sDAqBC;AA/ND,MAAa,YAAa,SAAQ,KAAK;IACf;IAAyB;IAAsB;IAAgC;IAAnG,YAAoB,OAAe,EAAU,IAAY,EAAU,QAAuB,EAAS,KAAa;QAC5G,MAAM,OAAO,GAAG,GAAG,IAAI,EAAE,CAAC;QAE1B,KAAK,CAAC,OAAO,CAAC,CAAC;QAHC,YAAO,GAAP,OAAO,CAAQ;QAAU,SAAI,GAAJ,IAAI,CAAQ;QAAU,aAAQ,GAAR,QAAQ,CAAe;QAAS,UAAK,GAAL,KAAK,CAAQ;QAI5G,IAAI,KAAK,EAAE,CAAC;YACR,IAAI,CAAC,KAAK,GAAG,KAAK,CAAC;QACvB,CAAC;IACL,CAAC;IAED,cAAc;QACV,OAAO,qBAAqB,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC;IACrD,CAAC;IAED,WAAW;QACP,OAAO,IAAI,CAAC,QAAQ,CAAC;IACzB,CAAC;IAED,UAAU;QACN,OAAO,IAAI,CAAC,OAAO,CAAC;IACxB,CAAC;IAED,OAAO;QACH,OAAO,IAAI,CAAC,IAAI,CAAC;IACrB,CAAC;IAED,UAAU;QACN,OAAO,IAAI,CAAC,OAAO,CAAC;IACxB,CAAC;IAED,QAAQ;QACJ,OAAO,IAAI,CAAC,KAAK,CAAC;IACtB,CAAC;CACJ;AAjCD,oCAiCC;AAED,+DAA+D;AAC/D,qBAAqB;AAErB,iDAAiD;AACjD,MAAa,gBAAiB,SAAQ,YAAY;IACX;IAArC,YAAY,OAAe,EAAU,IAAY,EAAE,QAAuB,EAAE,KAAa;QACvF,MAAM,IAAI,GAAG,iBAAiB,IAAI,EAAE,CAAC;QACrC,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QAFH,SAAI,GAAJ,IAAI,CAAQ;QAG/C,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;IACjB;IAA0B;IAA/D,YAAY,OAAe,EAAU,QAAgB,EAAU,SAAiB,EAAE,QAAuB,EAAE,KAAa;QACpH,MAAM,IAAI,GAAG,0BAA0B,QAAQ,IAAI,SAAS,GAAG,CAAC;QAChE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QAFL,aAAQ,GAAR,QAAQ,CAAQ;QAAU,cAAS,GAAT,SAAS,CAAQ;QAG5E,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;IACX;IAArC,YAAY,OAAe,EAAU,WAAmB,EAAE,QAAuB,EAAE,KAAa;QAC5F,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QAFL,gBAAW,GAAX,WAAW,CAAQ;QAGpD,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;IACX;IAArC,YAAY,OAAe,EAAU,WAAmB,EAAE,QAAuB,EAAE,KAAa;QAC5F,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QAFL,gBAAW,GAAX,WAAW,CAAQ;QAGpD,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;IACf;IAA8B;IAAnE,YAAY,OAAe,EAAU,YAAoB,EAAU,YAAoB,EAAE,QAAuB,EAAE,KAAa;QAC7H,MAAM,IAAI,GAAG,+BAA+B,YAAY,OAAO,YAAY,EAAE,CAAC;QAC9E,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QAFH,iBAAY,GAAZ,YAAY,CAAQ;QAAU,iBAAY,GAAZ,YAAY,CAAQ;QAGrF,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;IACX;IAA2B;IAAhE,YAAY,OAAe,EAAU,SAAiB,EAAU,KAAY,EAAE,QAAuB,EAAE,KAAa;QAChH,MAAM,IAAI,GAAG,IAAI,KAAK,CAAC,OAAO,yBAAyB,SAAS,EAAE,CAAC;QACnE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QAFL,cAAS,GAAT,SAAS,CAAQ;QAAU,UAAK,GAAL,KAAK,CAAO;QAGxE,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;IAED,YAAY;QACR,IAAI,IAAI,CAAC,KAAK,YAAY,kBAAkB,EAAE,CAAC;YAC3C,OAAO,IAAI,CAAC,KAAK,CAAC,YAAY,EAAE,CAAC;QACrC,CAAC;QACD,OAAO,IAAI,CAAC,KAAK,CAAC;IACtB,CAAC;CACJ;AArBD,gDAqBC;AAGD,MAAa,WAAY,SAAQ,YAAY;IACJ;IAA6B;IAAlE,YAAY,OAAe,EAAU,WAAmB,EAAU,KAAY,EAAE,QAAuB,EAAE,KAAa;QAClH,MAAM,IAAI,GAAG,mBAAmB,WAAW,EAAE,CAAC;QAC9C,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QAFL,gBAAW,GAAX,WAAW,CAAQ;QAAU,UAAK,GAAL,KAAK,CAAO;QAG1E,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,OAAe,EAAE,QAAuB,EAAE,KAAa;QAC/D,MAAM,IAAI,GAAG,iBAAiB,CAAC;QAC/B,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QACtC,IAAI,CAAC,IAAI,GAAG,qBAAqB,CAAC;IACtC,CAAC;CACJ;AAND,kDAMC;AAED,MAAa,iBAAkB,SAAQ,YAAY;IACV;IAArC,YAAY,OAAe,EAAU,KAAa,EAAE,QAAuB,EAAE,KAAa;QACtF,MAAM,IAAI,GAAG,gDAAgD,KAAK,EAAE,CAAC;QACrE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QAFL,UAAK,GAAL,KAAK,CAAQ;QAG9C,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,OAAe,EAAE,QAAuB,EAAE,KAAa;QAC/D,MAAM,IAAI,GAAG,sCAAsC,CAAC;QACpD,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QACtC,IAAI,CAAC,IAAI,GAAG,uBAAuB,CAAC;IACxC,CAAC;CACJ;AAND,sDAMC;AAED,MAAa,mBAAoB,SAAQ,YAAY;IACjD,YAAY,OAAe,EAAE,QAAuB,EAAE,KAAa;QAC/D,MAAM,IAAI,GAAG,mDAAmD,CAAC;QACjE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;QACtC,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;AAED,+DAA+D;AAC/D,oBAAoB;AACpB,SAAgB,qBAAqB,CAAC,OAAe,EAAE,YAA0B;IAC7E,qDAAqD;IACrD,IAAI,CAAC,OAAO,IAAI,OAAO,KAAK,EAAE,IAAI,YAAY,CAAC,WAAW,EAAE,KAAK,SAAS,EAAE,CAAC;QACzE,OAAO,YAAY,CAAC,OAAO,EAAE,CAAC;IAClC,CAAC;IAED,mEAAmE;IACnE,MAAM,QAAQ,GAAG,YAAY,CAAC,WAAW,EAAE,CAAC;IAE5C,4DAA4D;IAC5D,MAAM,QAAQ,GAAG,QAAQ,CAAC,IAAI,CAAC;IAE/B,2BAA2B;IAC3B,MAAM,KAAK,GAAG,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;IAErD,6GAA6G;IAC7G,MAAM,UAAU,GAAG,GAAG,CAAC,MAAM,CAAC,QAAQ,CAAC,MAAM,GAAC,CAAC,CAAC,GAAG,GAAG,CAAC,MAAM,CAAC,QAAQ,CAAC,OAAO,GAAG,QAAQ,CAAC,SAAS,CAAC,CAAC;IAErG,6DAA6D;IAC7D,MAAM,aAAa,GAAG,GAAG,YAAY,CAAC,OAAO,EAAE,YAAY,QAAQ,cAAc,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,UAAU,UAAU,CAAC;IACpJ,OAAO,aAAa,CAAC;AACzB,CAAC"}

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

@@ -11,6 +11,7 @@ export declare class GlobalModule extends Module {
     to_int(str_val: string): number | null;
     to_float(str_val: string): number | null;
     to_literal_date(str_val: string): Temporal.PlainDate | null;
+    to_zoned_datetime(str_val: string): Temporal.ZonedDateTime | null;
     to_time(str_val: string): Temporal.PlainTime | null;
     make_element_word(element_name: string): (interp: Interpreter) => Promise<void>;
     add_element_word(element_name: string): void;

package/dist/cjs/forthic/global_module.js

@@ -28,6 +28,7 @@ class GlobalModule extends module_1.Module {
         this.literal_handlers = [
             this.to_bool,
             this.to_float,
+            this.to_zoned_datetime,
             this.to_literal_date,
             this.to_time,
             this.to_int,
@@ -256,63 +257,10 @@ class GlobalModule extends module_1.Module {
             return result;
     }
     to_literal_date(str_val) {
-        // --------------------
-        // Handle date format strings like "YYYY-MM-DD" or "YYYY-MM-03" or "YYYY-02-03" or "2025-02-03"
-        let year;
-        let month;
-        let day;
-        const date_parts = str_val.split("-");
-        const zonedDateTime = temporal_polyfill_1.Temporal.Now.zonedDateTimeISO(this.interp?.get_timezone() ?? "UTC");
-        // Case 1: If time is like "YYYY-MM-DD"
-        if (str_val.match(/^YYYY-MM-DD$/)) {
-            year = zonedDateTime.year;
-            month = zonedDateTime.month;
-            day = zonedDateTime.day;
-        } // Case 2: If time is like "YYYY-MM-03"
-        else if (str_val.match(/^YYYY-MM-\d{2}$/)) {
-            year = zonedDateTime.year;
-            month = zonedDateTime.month;
-            day = parseInt(date_parts[2]);
-        } // Case 3: If time is like "YYYY-02-03"
-        else if (str_val.match(/^YYYY-\d{2}-\d{2}$/)) {
-            year = zonedDateTime.year;
-            month = parseInt(date_parts[1]);
-            day = parseInt(date_parts[2]);
-        } // Case 4: If time is like "2025-02-03"
-        else if (str_val.match(/^\d{4}-\d{2}-\d{2}$/)) {
-            year = parseInt(date_parts[0]);
-            month = parseInt(date_parts[1]);
-            day = parseInt(date_parts[2]);
-        } // Case 5: If time is like "2025-MM-DD"
-        else if (str_val.match(/^\d{4}-MM-DD$/)) {
-            year = parseInt(date_parts[0]);
-            month = zonedDateTime.month;
-            day = zonedDateTime.day;
-        } // Case 6: If time is like "2025-02-DD"
-        else if (str_val.match(/^\d{4}-\d{2}-DD$/)) {
-            year = parseInt(date_parts[0]);
-            month = parseInt(date_parts[1]);
-            day = zonedDateTime.day;
-        } // Case 7: If time is like "2025-MM-03"
-        else if (str_val.match(/^\d{4}-MM-\d{2}$/)) {
-            year = parseInt(date_parts[0]);
-            month = zonedDateTime.month;
-            day = parseInt(date_parts[2]);
-        } // Case 8: If time is like "YYYY-03-DD"
-        else if (str_val.match(/^YYYY-\d{2}-DD$/)) {
-            year = zonedDateTime.year;
-            month = parseInt(date_parts[1]);
-            day = zonedDateTime.day;
-        } // Otherwise, return null
-        else {
-            return null;
-        }
-        const result = temporal_polyfill_1.Temporal.PlainDate.from({
-            year: year,
-            month: month,
-            day: day,
-        });
-        return result;
+        return (0, utils_1.to_literal_date)(str_val, this.interp?.get_timezone() ?? "UTC");
+    }
+    to_zoned_datetime(str_val) {
+        return (0, utils_1.to_zoned_datetime)(str_val);
     }
     to_time(str_val) {
         const match = str_val.match(/(\d{1,2}):(\d{2})/);
@@ -1792,8 +1740,7 @@ class GlobalModule extends module_1.Module {
     // ( str -- datetime )
     word_STR_to_DATETIME(interp) {
         const s = interp.stack_pop();
-        const date = new Date(s);
-        const result = temporal_polyfill_1.Temporal.Instant.fromEpochMilliseconds(date.getTime()).toZonedDateTime({ timeZone: interp.get_timezone(), calendar: "iso8601" });
+        const result = (0, utils_1.to_zoned_datetime)(s, interp.get_timezone());
         interp.stack_push(result);
     }
     // ( str -- timestamp )