@forthic/interp 0.15.0 → 0.16.0

package/dist/cjs/forthic/utils.js

@@ -10,6 +10,8 @@ exports.to_string = to_string;
 exports.to_date = to_date;
 exports.date_to_string = date_to_string;
 exports.date_to_int = date_to_int;
+exports.to_literal_date = to_literal_date;
+exports.to_zoned_datetime = to_zoned_datetime;
 const temporal_polyfill_1 = require("temporal-polyfill");
 function is_string(value) {
     return typeof value === "string" || value instanceof String;
@@ -77,4 +79,114 @@ function date_to_int(date) {
     const result = parseInt(digits);
     return result;
 }
+function to_literal_date(str_val, timezone = "UTC") {
+    // --------------------
+    // 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(timezone);
+    // 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;
+}
+function to_zoned_datetime(str_val, tz = "UTC") {
+    try {
+        // We're handling these cases:
+        // 2025-05-24T10:15                       # Hours and minutes only, current timezone
+        // 2025-05-24T10:15:00                    # Hours, minutes, seconds, current timezone
+        // 2025-05-24T10:15:00.123                # With milliseconds, current timezone
+        // 2025-05-24T10:15Z                      # Hours and minutes only, UTC
+        // 2025-05-24T10:15:00Z                   # Hours, minutes, seconds, UTC
+        // 2025-05-24T10:15:00.123Z               # With milliseconds, UTC
+        // 2025-05-24T10:15:00-05:00              # With timezone offset
+        // 2025-05-24T10:15:00[America/New_York]  # With timezone name (NOTE: This one doesn't work in raw Forthic because `[` and `]` are special characters)
+        const datetimeRegex = new RegExp([
+            '^',
+            '(?<datetime>\\d{4}-\\d{2}-\\d{2}T\\d{2}:\\d{2})', // Named group for date and time
+            '(?::(?<seconds>\\d{2}))?', // Named group for optional seconds
+            '(?:\\.(?<milliseconds>\\d{3}))?', // Named group for optional milliseconds
+            '(?<timezone>Z|[+-]\\d{2}:\\d{2})?', // Named group for simple timezone (Z or offset)
+            '(?<bracketedTimezone>\\[[A-Za-z][A-Za-z0-9_/]+\\])?', // Named group for bracketed timezone
+            '$'
+        ].join(''));
+        const match = str_val.match(datetimeRegex);
+        if (!match)
+            return null;
+        // Extract regex groups
+        const datetime = match.groups?.datetime;
+        const seconds = match.groups?.seconds || "00";
+        const milliseconds = match.groups?.milliseconds || "000";
+        const timezone = match.groups?.timezone;
+        const bracketedTimezone = match.groups?.bracketedTimezone;
+        const datetimeStr = `${datetime}${seconds ? `:${seconds}` : ''}${milliseconds ? `.${milliseconds}` : ''}`;
+        let result = null;
+        // If timezone is specified in brackets, use it
+        if (bracketedTimezone) {
+            result = temporal_polyfill_1.Temporal.ZonedDateTime.from(`${datetimeStr}${bracketedTimezone}`);
+        }
+        // If we have a Z or a timezone offset, use that but convert to UTC
+        else if (timezone) {
+            const date = new Date(datetimeStr + timezone);
+            result = temporal_polyfill_1.Temporal.Instant.fromEpochMilliseconds(date.getTime()).toZonedDateTime({ timeZone: "UTC", calendar: 'iso8601' });
+        }
+        // Otherwise, use the current timezone
+        else {
+            const date = new Date(datetimeStr);
+            result = temporal_polyfill_1.Temporal.Instant.fromEpochMilliseconds(date.getTime()).toZonedDateTime({ timeZone: tz, calendar: 'iso8601' });
+        }
+        return result;
+    }
+    catch {
+        return null;
+    }
+}
 //# sourceMappingURL=utils.js.map

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

@@ -1 +1 @@
-{"version":3,"file":"utils.js","sourceRoot":"","sources":["../../../src/forthic/utils.ts"],"names":[],"mappings":";;AAEA,8BAEG;AAED,8BAGC;AAED,8BAEC;AAED,4BAEC;AAED,0CAKC;AAED,oCAEC;AAED,8BAEC;AAGD,0BAcC;AAED,wCAcC;AAED,kCAKC;AAxEH,yDAA6C;AAE7C,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;AAGD,SAAgB,OAAO,CAAC,GAAQ;IAC9B,IAAI,MAA0B,CAAC;IAC/B,IAAI,GAAG,YAAY,4BAAQ,CAAC,SAAS,EAAE,CAAC;QACtC,MAAM,GAAG,GAAG,CAAC;IACf,CAAC;SAAM,IAAI,GAAG,YAAY,4BAAQ,CAAC,aAAa,EAAE,CAAC;QACjD,MAAM,GAAG,4BAAQ,CAAC,SAAS,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;IACxC,CAAC;SAAM,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE,CAAC;QAC9D,uCAAuC;QACvC,MAAM,IAAI,GAAG,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC;QAC3B,MAAM,GAAG,4BAAQ,CAAC,SAAS,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,IAAI,CAAC,WAAW,EAAE,EAAE,KAAK,EAAE,IAAI,CAAC,QAAQ,EAAE,GAAG,CAAC,EAAE,GAAG,EAAE,IAAI,CAAC,OAAO,EAAE,EAAE,CAAC,CAAC;IAClH,CAAC;SAAM,CAAC;QACN,OAAO,IAAI,CAAC;IACd,CAAC;IACD,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,SAAgB,cAAc,CAAC,IAAwB;IACrD,IAAI,MAAM,GAAG,EAAE,CAAC;IAChB,IAAI,IAAI,YAAY,4BAAQ,CAAC,SAAS,EAAE,CAAC;QACvC,MAAM,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC;QACrB,MAAM,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC;QACnB,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC;QAEpB,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,IAAwB;IAClD,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"}
+{"version":3,"file":"utils.js","sourceRoot":"","sources":["../../../src/forthic/utils.ts"],"names":[],"mappings":";;AAEA,8BAEG;AAED,8BAGC;AAED,8BAEC;AAED,4BAEC;AAED,0CAKC;AAED,oCAEC;AAED,8BAEC;AAGD,0BAcC;AAED,wCAcC;AAED,kCAKC;AAGH,0CA4DC;AAED,8CAsDC;AA/LD,yDAA6C;AAE7C,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;AAGD,SAAgB,OAAO,CAAC,GAAQ;IAC9B,IAAI,MAA0B,CAAC;IAC/B,IAAI,GAAG,YAAY,4BAAQ,CAAC,SAAS,EAAE,CAAC;QACtC,MAAM,GAAG,GAAG,CAAC;IACf,CAAC;SAAM,IAAI,GAAG,YAAY,4BAAQ,CAAC,aAAa,EAAE,CAAC;QACjD,MAAM,GAAG,4BAAQ,CAAC,SAAS,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;IACxC,CAAC;SAAM,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE,CAAC;QAC9D,uCAAuC;QACvC,MAAM,IAAI,GAAG,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC;QAC3B,MAAM,GAAG,4BAAQ,CAAC,SAAS,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,IAAI,CAAC,WAAW,EAAE,EAAE,KAAK,EAAE,IAAI,CAAC,QAAQ,EAAE,GAAG,CAAC,EAAE,GAAG,EAAE,IAAI,CAAC,OAAO,EAAE,EAAE,CAAC,CAAC;IAClH,CAAC;SAAM,CAAC;QACN,OAAO,IAAI,CAAC;IACd,CAAC;IACD,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,SAAgB,cAAc,CAAC,IAAwB;IACrD,IAAI,MAAM,GAAG,EAAE,CAAC;IAChB,IAAI,IAAI,YAAY,4BAAQ,CAAC,SAAS,EAAE,CAAC;QACvC,MAAM,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC;QACrB,MAAM,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC;QACnB,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC;QAEpB,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,IAAwB;IAClD,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;AAGH,SAAgB,eAAe,CAAC,OAAe,EAAE,WAAkC,KAAK;IACtF,uBAAuB;IACvB,+FAA+F;IAC7F,IAAI,IAAY,CAAC;IACjB,IAAI,KAAa,CAAC;IAClB,IAAI,GAAW,CAAC;IAChB,MAAM,UAAU,GAAG,OAAO,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;IACtC,MAAM,aAAa,GAAG,4BAAQ,CAAC,GAAG,CAAC,gBAAgB,CAAC,QAAQ,CAAC,CAAC;IAE9D,uCAAuC;IACvC,IAAI,OAAO,CAAC,KAAK,CAAC,cAAc,CAAC,EAAE,CAAC;QAClC,IAAI,GAAG,aAAa,CAAC,IAAI,CAAC;QAC1B,KAAK,GAAG,aAAa,CAAC,KAAK,CAAC;QAC5B,GAAG,GAAG,aAAa,CAAC,GAAG,CAAC;IAC1B,CAAC,CAAC,uCAAuC;SACpC,IAAI,OAAO,CAAC,KAAK,CAAC,iBAAiB,CAAC,EAAE,CAAC;QAC1C,IAAI,GAAG,aAAa,CAAC,IAAI,CAAC;QAC1B,KAAK,GAAG,aAAa,CAAC,KAAK,CAAC;QAC5B,GAAG,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;IAChC,CAAC,CAAC,uCAAuC;SACpC,IAAI,OAAO,CAAC,KAAK,CAAC,oBAAoB,CAAC,EAAE,CAAC;QAC7C,IAAI,GAAG,aAAa,CAAC,IAAI,CAAC;QAC1B,KAAK,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QAChC,GAAG,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;IAChC,CAAC,CAAC,uCAAuC;SACpC,IAAI,OAAO,CAAC,KAAK,CAAC,qBAAqB,CAAC,EAAE,CAAC;QAC9C,IAAI,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QAC/B,KAAK,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QAChC,GAAG,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;IAChC,CAAC,CAAC,uCAAuC;SACpC,IAAI,OAAO,CAAC,KAAK,CAAC,eAAe,CAAC,EAAE,CAAC;QACxC,IAAI,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QAC/B,KAAK,GAAG,aAAa,CAAC,KAAK,CAAC;QAC5B,GAAG,GAAG,aAAa,CAAC,GAAG,CAAC;IAC1B,CAAC,CAAC,uCAAuC;SACpC,IAAI,OAAO,CAAC,KAAK,CAAC,kBAAkB,CAAC,EAAE,CAAC;QAC3C,IAAI,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QAC/B,KAAK,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QAChC,GAAG,GAAG,aAAa,CAAC,GAAG,CAAC;IAC1B,CAAC,CAAC,uCAAuC;SACpC,IAAI,OAAO,CAAC,KAAK,CAAC,kBAAkB,CAAC,EAAE,CAAC;QAC3C,IAAI,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QAC/B,KAAK,GAAG,aAAa,CAAC,KAAK,CAAC;QAC5B,GAAG,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;IAChC,CAAC,CAAC,uCAAuC;SACpC,IAAI,OAAO,CAAC,KAAK,CAAC,iBAAiB,CAAC,EAAE,CAAC;QAC1C,IAAI,GAAG,aAAa,CAAC,IAAI,CAAC;QAC1B,KAAK,GAAG,QAAQ,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QAChC,GAAG,GAAG,aAAa,CAAC,GAAG,CAAC;IAC1B,CAAC,CAAC,yBAAyB;SACtB,CAAC;QACJ,OAAO,IAAI,CAAC;IACd,CAAC;IAEH,MAAM,MAAM,GAAG,4BAAQ,CAAC,SAAS,CAAC,IAAI,CAAC;QACrC,IAAI,EAAE,IAAI;QACV,KAAK,EAAE,KAAK;QACZ,GAAG,EAAE,GAAG;KACT,CAAC,CAAC;IACH,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,SAAgB,iBAAiB,CAAC,OAAe,EAAE,KAA4B,KAAK;IAClF,IAAI,CAAC;QACH,8BAA8B;QAC9B,oFAAoF;QACpF,qFAAqF;QACrF,+EAA+E;QAC/E,uEAAuE;QACvE,wEAAwE;QACxE,kEAAkE;QAClE,gEAAgE;QAChE,sJAAsJ;QACtJ,MAAM,aAAa,GAAG,IAAI,MAAM,CAC9B;YACE,GAAG;YACH,iDAAiD,EAAM,gCAAgC;YACvF,0BAA0B,EAA6B,mCAAmC;YAC1F,iCAAiC,EAAsB,wCAAwC;YAC/F,mCAAmC,EAAoB,gDAAgD;YACvG,qDAAqD,EAAE,qCAAqC;YAC5F,GAAG;SACJ,CAAC,IAAI,CAAC,EAAE,CAAC,CACX,CAAC;QACF,MAAM,KAAK,GAAG,OAAO,CAAC,KAAK,CAAC,aAAa,CAAC,CAAC;QAC3C,IAAI,CAAC,KAAK;YAAE,OAAO,IAAI,CAAC;QAExB,uBAAuB;QACvB,MAAM,QAAQ,GAAG,KAAK,CAAC,MAAM,EAAE,QAAQ,CAAC;QACxC,MAAM,OAAO,GAAG,KAAK,CAAC,MAAM,EAAE,OAAO,IAAI,IAAI,CAAC;QAC9C,MAAM,YAAY,GAAG,KAAK,CAAC,MAAM,EAAE,YAAY,IAAI,KAAK,CAAC;QACzD,MAAM,QAAQ,GAAG,KAAK,CAAC,MAAM,EAAE,QAAQ,CAAC;QACxC,MAAM,iBAAiB,GAAG,KAAK,CAAC,MAAM,EAAE,iBAAiB,CAAC;QAE1D,MAAM,WAAW,GAAG,GAAG,QAAQ,GAAG,OAAO,CAAC,CAAC,CAAC,IAAI,OAAO,EAAE,CAAC,CAAC,CAAC,EAAE,GAAG,YAAY,CAAC,CAAC,CAAC,IAAI,YAAY,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC;QAE1G,IAAI,MAAM,GAAkC,IAAI,CAAC;QAEjD,+CAA+C;QAC/C,IAAI,iBAAiB,EAAE,CAAC;YACtB,MAAM,GAAG,4BAAQ,CAAC,aAAa,CAAC,IAAI,CAAC,GAAG,WAAW,GAAG,iBAAiB,EAAE,CAAC,CAAC;QAC7E,CAAC;QACD,mEAAmE;aAC9D,IAAI,QAAQ,EAAE,CAAC;YAClB,MAAM,IAAI,GAAG,IAAI,IAAI,CAAC,WAAW,GAAG,QAAQ,CAAC,CAAC;YAC9C,MAAM,GAAG,4BAAQ,CAAC,OAAO,CAAC,qBAAqB,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC,CAAC,eAAe,CAAC,EAAE,QAAQ,EAAE,KAAK,EAAE,QAAQ,EAAE,SAAS,EAAE,CAAC,CAAC;QAC5H,CAAC;QACD,sCAAsC;aACjC,CAAC;YACJ,MAAM,IAAI,GAAG,IAAI,IAAI,CAAC,WAAW,CAAC,CAAC;YACnC,MAAM,GAAG,4BAAQ,CAAC,OAAO,CAAC,qBAAqB,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC,CAAC,eAAe,CAAC,EAAE,QAAQ,EAAE,EAAE,EAAE,QAAQ,EAAE,SAAS,EAAE,CAAC,CAAC;QACzH,CAAC;QACD,OAAO,MAAM,CAAC;IAChB,CAAC;IAAC,MAAM,CAAC;QACP,OAAO,IAAI,CAAC;IACd,CAAC;AACH,CAAC"}

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

@@ -3,46 +3,48 @@ 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/esm/forthic/errors.js

@@ -2,12 +2,17 @@ export 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);
@@ -24,15 +29,18 @@ export class ForthicError extends Error {
     getMessage() {
         return this.message;
     }
+    getCause() {
+        return this.cause;
+    }
 }
 // ============================================================
 // Interpreter errors
 // Interpreter couldn't find word in dictionaries
 export 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";
     }
@@ -44,9 +52,9 @@ export class UnknownWordError extends ForthicError {
 export 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";
@@ -61,9 +69,9 @@ export class InvalidVariableNameError extends ForthicError {
 // Interpreter couldn't find screen
 export 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";
     }
@@ -74,9 +82,9 @@ export class UnknownScreenError extends ForthicError {
 // Interpreter couldn't find module
 export 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";
     }
@@ -87,9 +95,9 @@ export class UnknownModuleError extends ForthicError {
 export 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";
@@ -104,9 +112,9 @@ export class TooManyAttemptsError extends ForthicError {
 export 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";
@@ -127,9 +135,9 @@ export class WordExecutionError extends ForthicError {
 export 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";
@@ -142,17 +150,17 @@ export class ModuleError extends ForthicError {
     }
 }
 export 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";
     }
 }
 export 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";
     }
@@ -161,16 +169,16 @@ export class UnknownTokenError extends ForthicError {
     }
 }
 export 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";
     }
 }
 export 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/esm/forthic/errors.js.map

@@ -1 +1 @@
-{"version":3,"file":"errors.js","sourceRoot":"","sources":["../../../src/forthic/errors.ts"],"names":[],"mappings":"AAEA,MAAM,OAAO,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;AAED,+DAA+D;AAC/D,qBAAqB;AAErB,iDAAiD;AACjD,MAAM,OAAO,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;AAED,+BAA+B;AAC/B,MAAM,OAAO,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;AAGD,mCAAmC;AACnC,MAAM,OAAO,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;AAED,mCAAmC;AACnC,MAAM,OAAO,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;AAED,MAAM,OAAO,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;AAGD,MAAM,OAAO,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;AAGD,MAAM,OAAO,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;AAGD,MAAM,OAAO,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;AAED,MAAM,OAAO,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;AAED,MAAM,OAAO,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;AAED,MAAM,OAAO,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;AAED,+DAA+D;AAC/D,cAAc;AAEd,oCAAoC;AACpC,MAAM,OAAO,oBAAqB,SAAQ,KAAK;IAC7C,YAAY,OAAe;QACzB,KAAK,CAAC,OAAO,CAAC,CAAC;QACf,IAAI,CAAC,IAAI,GAAG,sBAAsB,CAAC;IACrC,CAAC;CACF;AAED,+DAA+D;AAC/D,oBAAoB;AACpB,MAAM,UAAU,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":"AAEA,MAAM,OAAO,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;AAED,+DAA+D;AAC/D,qBAAqB;AAErB,iDAAiD;AACjD,MAAM,OAAO,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;AAED,+BAA+B;AAC/B,MAAM,OAAO,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;AAGD,mCAAmC;AACnC,MAAM,OAAO,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;AAED,mCAAmC;AACnC,MAAM,OAAO,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;AAED,MAAM,OAAO,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;AAGD,MAAM,OAAO,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;AAGD,MAAM,OAAO,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;AAGD,MAAM,OAAO,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;AAED,MAAM,OAAO,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;AAED,MAAM,OAAO,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;AAED,MAAM,OAAO,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;AAED,+DAA+D;AAC/D,cAAc;AAEd,oCAAoC;AACpC,MAAM,OAAO,oBAAqB,SAAQ,KAAK;IAC7C,YAAY,OAAe;QACzB,KAAK,CAAC,OAAO,CAAC,CAAC;QACf,IAAI,CAAC,IAAI,GAAG,sBAAsB,CAAC;IACrC,CAAC;CACF;AAED,+DAA+D;AAC/D,oBAAoB;AACpB,MAAM,UAAU,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/esm/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/esm/forthic/global_module.js

@@ -1,5 +1,5 @@
 import { Module, PushValueWord } from "./module";
-import { is_array, is_record, is_string, pretty_print, to_date, date_to_string, date_to_int, } from "./utils";
+import { is_array, is_record, is_string, pretty_print, to_date, date_to_string, date_to_int, to_literal_date, to_zoned_datetime, } from "./utils";
 import { Temporal } from "temporal-polyfill";
 import { MapWord } from "./global_module/map_word";
 import { CodeLocation } from "./tokenizer";
@@ -25,6 +25,7 @@ export class GlobalModule extends Module {
         this.literal_handlers = [
             this.to_bool,
             this.to_float,
+            this.to_zoned_datetime,
             this.to_literal_date,
             this.to_time,
             this.to_int,
@@ -253,63 +254,10 @@ export class GlobalModule extends 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.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.PlainDate.from({
-            year: year,
-            month: month,
-            day: day,
-        });
-        return result;
+        return to_literal_date(str_val, this.interp?.get_timezone() ?? "UTC");
+    }
+    to_zoned_datetime(str_val) {
+        return to_zoned_datetime(str_val);
     }
     to_time(str_val) {
         const match = str_val.match(/(\d{1,2}):(\d{2})/);
@@ -1789,8 +1737,7 @@ export class GlobalModule extends Module {
     // ( str -- datetime )
     word_STR_to_DATETIME(interp) {
         const s = interp.stack_pop();
-        const date = new Date(s);
-        const result = Temporal.Instant.fromEpochMilliseconds(date.getTime()).toZonedDateTime({ timeZone: interp.get_timezone(), calendar: "iso8601" });
+        const result = to_zoned_datetime(s, interp.get_timezone());
         interp.stack_push(result);
     }
     // ( str -- timestamp )