@fnndsc/brasa 0.37.0 → 0.38.0

package/dist/builtins/games/trek/printf.js

@@ -0,0 +1,157 @@
+/**
+ * @file C's printf formatting, as trek uses it.
+ *
+ * trek prints through printf with widths, precisions and flags
+ * (`%5.1f`, `%14.14s`, `%-3d`); a faithful port prints exactly what the C
+ * printed, so this formats as C does: conversions d i u c s f e g x o and
+ * %%, flags - + space 0 #, width and precision (either may be `*`).
+ * Written for the port (no BSD source here).
+ *
+ * @module
+ */
+/**
+ * Formats as C's sprintf.
+ *
+ * @param format - The format string.
+ * @param args - The values, in order.
+ * @returns The text.
+ */
+export function sprintf(format, ...args) {
+    let out = '';
+    let next = 0;
+    const take = () => args[next++] ?? 0;
+    const spec = /%([-+ 0#]*)(\*|\d+)?(?:\.(\*|\d*))?(?:hh|h|ll|l|L|z|j|t)?([diucsfFeEgGxXo%])/g;
+    let last = 0;
+    let match;
+    while ((match = spec.exec(format)) !== null) {
+        out += format.slice(last, match.index);
+        last = spec.lastIndex;
+        const [, flags = '', widthSpec, precSpec, conversion = ''] = match;
+        if (conversion === '%') {
+            out += '%';
+            continue;
+        }
+        let width = widthSpec === undefined ? 0 : widthSpec === '*' ? Number(take()) : Number(widthSpec);
+        let left = flags.includes('-');
+        if (width < 0) {
+            left = true;
+            width = -width;
+        }
+        const precision = precSpec === undefined ? null : precSpec === '*' ? Number(take()) : Number(precSpec || '0');
+        const value = take();
+        let body;
+        let sign = '';
+        let numeric = true;
+        switch (conversion) {
+            case 'd':
+            case 'i':
+            case 'u': {
+                const n = Math.trunc(Number(value));
+                sign = n < 0 ? '-' : flags.includes('+') ? '+' : flags.includes(' ') ? ' ' : '';
+                body = String(Math.abs(n));
+                if (precision !== null)
+                    body = precision === 0 && n === 0 ? '' : body.padStart(precision, '0');
+                break;
+            }
+            case 'x':
+            case 'X':
+            case 'o': {
+                const n = Math.trunc(Number(value)) >>> 0;
+                body = n.toString(conversion === 'o' ? 8 : 16);
+                if (conversion === 'X')
+                    body = body.toUpperCase();
+                if (precision !== null)
+                    body = body.padStart(precision, '0');
+                if (flags.includes('#') && n !== 0)
+                    body = (conversion === 'o' ? '0' : conversion === 'x' ? '0x' : '0X') + body;
+                break;
+            }
+            case 'c':
+                numeric = false;
+                body = typeof value === 'number' ? String.fromCharCode(value) : String(value).charAt(0);
+                break;
+            case 's':
+                numeric = false;
+                body = String(value);
+                if (precision !== null)
+                    body = body.slice(0, precision);
+                break;
+            default: {
+                const n = Number(value);
+                sign = n < 0 || Object.is(n, -0) ? '-' : flags.includes('+') ? '+' : flags.includes(' ') ? ' ' : '';
+                body = float_format(Math.abs(n), conversion, precision ?? 6, flags.includes('#'));
+            }
+        }
+        let text = sign + body;
+        if (text.length < width) {
+            if (left)
+                text = text.padEnd(width);
+            else if (numeric && flags.includes('0') && !(precision !== null && 'diuxXo'.includes(conversion)))
+                text = sign + body.padStart(width - sign.length, '0');
+            else
+                text = text.padStart(width);
+        }
+        out += text;
+    }
+    return out + format.slice(last);
+}
+/** A non-negative double in %f, %e or %g. */
+function float_format(n, conversion, precision, alternate) {
+    if (!Number.isFinite(n))
+        return Number.isNaN(n) ? 'nan' : 'inf';
+    const lower = conversion.toLowerCase();
+    if (lower === 'f')
+        return fixed_exact(n, precision);
+    if (lower === 'e')
+        return exp_format(n, precision, conversion === 'E');
+    // %g: precision 0 is 1; %e when the exponent is < -4 or >= precision.
+    const p = precision === 0 ? 1 : precision;
+    const exponent = n === 0 ? 0 : Math.floor(Math.log10(Number(n.toExponential(p - 1))));
+    let text = exponent < -4 || exponent >= p ? exp_format(n, p - 1, conversion === 'G') : n.toFixed(Math.max(0, p - 1 - exponent));
+    if (!alternate) {
+        text = text.replace(/(\.\d*?)0+(e|E|$)/, '$1$2').replace(/\.(e|E|$)/, '$1');
+    }
+    return text;
+}
+/** %e: d.ddde+XX, at least two exponent digits. */
+function exp_format(n, precision, upper) {
+    const [mantissa, exp = '0'] = n.toExponential(precision).split('e');
+    const e = Number(exp);
+    const text = `${mantissa}e${e < 0 ? '-' : '+'}${String(Math.abs(e)).padStart(2, '0')}`;
+    return upper ? text.toUpperCase() : text;
+}
+/**
+ * %f as glibc prints it: the double's exact binary value rounded to the
+ * precision, an exact tie to even. (JavaScript's toFixed rounds a tie up:
+ * `%.0f` of 2.5 is 2 in C and 3 in toFixed.)
+ *
+ * @param n - A non-negative finite double.
+ * @param precision - Digits after the point.
+ * @returns The digits.
+ */
+export function fixed_exact(n, precision) {
+    const view = new DataView(new ArrayBuffer(8));
+    view.setFloat64(0, n);
+    const bits = view.getBigUint64(0);
+    const biased = Number((bits >> 52n) & 0x7ffn);
+    const fraction = bits & ((1n << 52n) - 1n);
+    // n = mantissa * 2^exponent, exactly.
+    const mantissa = biased === 0 ? fraction : fraction | (1n << 52n);
+    const exponent = (biased === 0 ? 1 : biased) - 1075;
+    const scale = 10n ** BigInt(precision);
+    let digits;
+    if (exponent >= 0) {
+        digits = (mantissa << BigInt(exponent)) * scale;
+    }
+    else {
+        const numerator = mantissa * scale;
+        const denominator = 1n << BigInt(-exponent);
+        digits = numerator / denominator;
+        const twice = (numerator % denominator) * 2n;
+        if (twice > denominator || (twice === denominator && digits % 2n === 1n))
+            digits += 1n;
+    }
+    const text = digits.toString().padStart(precision + 1, '0');
+    return precision === 0 ? text : `${text.slice(0, text.length - precision)}.${text.slice(text.length - precision)}`;
+}
+//# sourceMappingURL=printf.js.map

package/dist/builtins/games/trek/printf.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"printf.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/printf.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;GAUG;AAKH;;;;;;GAMG;AACH,MAAM,UAAU,OAAO,CAAC,MAAc,EAAE,GAAG,IAAiB;IAC1D,IAAI,GAAG,GAAW,EAAE,CAAC;IACrB,IAAI,IAAI,GAAW,CAAC,CAAC;IACrB,MAAM,IAAI,GAAG,GAAc,EAAE,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,CAAC,CAAC;IAChD,MAAM,IAAI,GAAW,+EAA+E,CAAC;IACrG,IAAI,IAAI,GAAW,CAAC,CAAC;IACrB,IAAI,KAA6B,CAAC;IAClC,OAAO,CAAC,KAAK,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,KAAK,IAAI,EAAE,CAAC;QAC5C,GAAG,IAAI,MAAM,CAAC,KAAK,CAAC,IAAI,EAAE,KAAK,CAAC,KAAK,CAAC,CAAC;QACvC,IAAI,GAAG,IAAI,CAAC,SAAS,CAAC;QACtB,MAAM,CAAC,EAAE,KAAK,GAAG,EAAE,EAAE,SAAS,EAAE,QAAQ,EAAE,UAAU,GAAG,EAAE,CAAC,GAAG,KAAK,CAAC;QACnE,IAAI,UAAU,KAAK,GAAG,EAAE,CAAC;YAAC,GAAG,IAAI,GAAG,CAAC;YAAC,SAAS;QAAC,CAAC;QACjD,IAAI,KAAK,GAAW,SAAS,KAAK,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,KAAK,GAAG,CAAC,CAAC,CAAC,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,SAAS,CAAC,CAAC;QACzG,IAAI,IAAI,GAAY,KAAK,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC;QACxC,IAAI,KAAK,GAAG,CAAC,EAAE,CAAC;YAAC,IAAI,GAAG,IAAI,CAAC;YAAC,KAAK,GAAG,CAAC,KAAK,CAAC;QAAC,CAAC;QAC/C,MAAM,SAAS,GAAkB,QAAQ,KAAK,SAAS,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,QAAQ,KAAK,GAAG,CAAC,CAAC,CAAC,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,QAAQ,IAAI,GAAG,CAAC,CAAC;QAC7H,MAAM,KAAK,GAAc,IAAI,EAAE,CAAC;QAChC,IAAI,IAAY,CAAC;QACjB,IAAI,IAAI,GAAW,EAAE,CAAC;QACtB,IAAI,OAAO,GAAY,IAAI,CAAC;QAC5B,QAAQ,UAAU,EAAE,CAAC;YACnB,KAAK,GAAG,CAAC;YAAC,KAAK,GAAG,CAAC;YAAC,KAAK,GAAG,CAAC,CAAC,CAAC;gBAC7B,MAAM,CAAC,GAAW,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;gBAC5C,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,KAAK,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,KAAK,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC;gBAChF,IAAI,GAAG,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC3B,IAAI,SAAS,KAAK,IAAI;oBAAE,IAAI,GAAG,SAAS,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,SAAS,EAAE,GAAG,CAAC,CAAC;gBAC/F,MAAM;YACR,CAAC;YACD,KAAK,GAAG,CAAC;YAAC,KAAK,GAAG,CAAC;YAAC,KAAK,GAAG,CAAC,CAAC,CAAC;gBAC7B,MAAM,CAAC,GAAW,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,KAAK,CAAC,CAAC;gBAClD,IAAI,GAAG,CAAC,CAAC,QAAQ,CAAC,UAAU,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;gBAC/C,IAAI,UAAU,KAAK,GAAG;oBAAE,IAAI,GAAG,IAAI,CAAC,WAAW,EAAE,CAAC;gBAClD,IAAI,SAAS,KAAK,IAAI;oBAAE,IAAI,GAAG,IAAI,CAAC,QAAQ,CAAC,SAAS,EAAE,GAAG,CAAC,CAAC;gBAC7D,IAAI,KAAK,CAAC,QAAQ,CAAC,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC;oBAAE,IAAI,GAAG,CAAC,UAAU,KAAK,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,UAAU,KAAK,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,IAAI,CAAC;gBAChH,MAAM;YACR,CAAC;YACD,KAAK,GAAG;gBACN,OAAO,GAAG,KAAK,CAAC;gBAChB,IAAI,GAAG,OAAO,KAAK,KAAK,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC,YAAY,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;gBACxF,MAAM;YACR,KAAK,GAAG;gBACN,OAAO,GAAG,KAAK,CAAC;gBAChB,IAAI,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC;gBACrB,IAAI,SAAS,KAAK,IAAI;oBAAE,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,SAAS,CAAC,CAAC;gBACxD,MAAM;YACR,OAAO,CAAC,CAAC,CAAC;gBACR,MAAM,CAAC,GAAW,MAAM,CAAC,KAAK,CAAC,CAAC;gBAChC,IAAI,GAAG,CAAC,GAAG,CAAC,IAAI,MAAM,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,KAAK,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,KAAK,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC;gBACpG,IAAI,GAAG,YAAY,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,UAAU,EAAE,SAAS,IAAI,CAAC,EAAE,KAAK,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC;YACpF,CAAC;QACH,CAAC;QACD,IAAI,IAAI,GAAW,IAAI,GAAG,IAAI,CAAC;QAC/B,IAAI,IAAI,CAAC,MAAM,GAAG,KAAK,EAAE,CAAC;YACxB,IAAI,IAAI;gBAAE,IAAI,GAAG,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;iBAC/B,IAAI,OAAO,IAAI,KAAK,CAAC,QAAQ,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,SAAS,KAAK,IAAI,IAAI,QAAQ,CAAC,QAAQ,CAAC,UAAU,CAAC,CAAC;gBAAE,IAAI,GAAG,IAAI,GAAG,IAAI,CAAC,QAAQ,CAAC,KAAK,GAAG,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;;gBACpJ,IAAI,GAAG,IAAI,CAAC,QAAQ,CAAC,KAAK,CAAC,CAAC;QACnC,CAAC;QACD,GAAG,IAAI,IAAI,CAAC;IACd,CAAC;IACD,OAAO,GAAG,GAAG,MAAM,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;AAClC,CAAC;AAED,6CAA6C;AAC7C,SAAS,YAAY,CAAC,CAAS,EAAE,UAAkB,EAAE,SAAiB,EAAE,SAAkB;IACxF,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC,CAAC;QAAE,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC;IAChE,MAAM,KAAK,GAAW,UAAU,CAAC,WAAW,EAAE,CAAC;IAC/C,IAAI,KAAK,KAAK,GAAG;QAAE,OAAO,WAAW,CAAC,CAAC,EAAE,SAAS,CAAC,CAAC;IACpD,IAAI,KAAK,KAAK,GAAG;QAAE,OAAO,UAAU,CAAC,CAAC,EAAE,SAAS,EAAE,UAAU,KAAK,GAAG,CAAC,CAAC;IACvE,sEAAsE;IACtE,MAAM,CAAC,GAAW,SAAS,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;IAClD,MAAM,QAAQ,GAAW,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,aAAa,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IAC9F,IAAI,IAAI,GAAW,QAAQ,GAAG,CAAC,CAAC,IAAI,QAAQ,IAAI,CAAC,CAAC,CAAC,CAAC,UAAU,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,UAAU,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,QAAQ,CAAC,CAAC,CAAC;IACxI,IAAI,CAAC,SAAS,EAAE,CAAC;QACf,IAAI,GAAG,IAAI,CAAC,OAAO,CAAC,mBAAmB,EAAE,MAAM,CAAC,CAAC,OAAO,CAAC,WAAW,EAAE,IAAI,CAAC,CAAC;IAC9E,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED,mDAAmD;AACnD,SAAS,UAAU,CAAC,CAAS,EAAE,SAAiB,EAAE,KAAc;IAC9D,MAAM,CAAC,QAAQ,EAAE,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,aAAa,CAAC,SAAS,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;IACpE,MAAM,CAAC,GAAW,MAAM,CAAC,GAAG,CAAC,CAAC;IAC9B,MAAM,IAAI,GAAW,GAAG,QAAQ,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,GAAG,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC,EAAE,CAAC;IAC/F,OAAO,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC;AAC3C,CAAC;AAED;;;;;;;;GAQG;AACH,MAAM,UAAU,WAAW,CAAC,CAAS,EAAE,SAAiB;IACtD,MAAM,IAAI,GAAa,IAAI,QAAQ,CAAC,IAAI,WAAW,CAAC,CAAC,CAAC,CAAC,CAAC;IACxD,IAAI,CAAC,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACtB,MAAM,IAAI,GAAW,IAAI,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;IAC1C,MAAM,MAAM,GAAW,MAAM,CAAC,CAAC,IAAI,IAAI,GAAG,CAAC,GAAG,MAAM,CAAC,CAAC;IACtD,MAAM,QAAQ,GAAW,IAAI,GAAG,CAAC,CAAC,EAAE,IAAI,GAAG,CAAC,GAAG,EAAE,CAAC,CAAC;IACnD,sCAAsC;IACtC,MAAM,QAAQ,GAAW,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,QAAQ,GAAG,CAAC,EAAE,IAAI,GAAG,CAAC,CAAC;IAC1E,MAAM,QAAQ,GAAW,CAAC,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,IAAI,CAAC;IAC5D,MAAM,KAAK,GAAW,GAAG,IAAI,MAAM,CAAC,SAAS,CAAC,CAAC;IAC/C,IAAI,MAAc,CAAC;IACnB,IAAI,QAAQ,IAAI,CAAC,EAAE,CAAC;QAClB,MAAM,GAAG,CAAC,QAAQ,IAAI,MAAM,CAAC,QAAQ,CAAC,CAAC,GAAG,KAAK,CAAC;IAClD,CAAC;SAAM,CAAC;QACN,MAAM,SAAS,GAAW,QAAQ,GAAG,KAAK,CAAC;QAC3C,MAAM,WAAW,GAAW,EAAE,IAAI,MAAM,CAAC,CAAC,QAAQ,CAAC,CAAC;QACpD,MAAM,GAAG,SAAS,GAAG,WAAW,CAAC;QACjC,MAAM,KAAK,GAAW,CAAC,SAAS,GAAG,WAAW,CAAC,GAAG,EAAE,CAAC;QACrD,IAAI,KAAK,GAAG,WAAW,IAAI,CAAC,KAAK,KAAK,WAAW,IAAI,MAAM,GAAG,EAAE,KAAK,EAAE,CAAC;YAAE,MAAM,IAAI,EAAE,CAAC;IACzF,CAAC;IACD,MAAM,IAAI,GAAW,MAAM,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,SAAS,GAAG,CAAC,EAAE,GAAG,CAAC,CAAC;IACpE,OAAO,SAAS,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,IAAI,CAAC,MAAM,GAAG,SAAS,CAAC,IAAI,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,MAAM,GAAG,SAAS,CAAC,EAAE,CAAC;AACrH,CAAC"}

package/dist/builtins/games/trek/ram.d.ts

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Rams whatever is at ix,iy. */
+export declare function ram(t: Trek, ix: number, iy: number): Promise<void>;

package/dist/builtins/games/trek/ram.js

@@ -0,0 +1,97 @@
+/*
+ * ram.ts: a TypeScript port of BSD trek(6), from ram.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): ram.c 1.8 2009/05/24.
+ *
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+/**
+ * @file Ramming an object: a Klingon, a star or a starbase.
+ *
+ * @module
+ */
+import { BASE, INHABIT, KLINGON, L_STAR, NDEV, SINS, STAR } from './consts.js';
+import { damage } from './damage.js';
+import { damaged } from './damaged.js';
+import { killb, killk } from './kill.js';
+import { lose } from './lose.js';
+import { franf, ranf } from './rand.js';
+/*
+**  RAM SOME OBJECT
+**
+**	You have run into some sort of object.  It may be a Klingon,
+**	a star, or a starbase.  If you run into a star, you are really
+**	stupid, because there is no hope for you.
+**
+**	If you run into something else, you destroy that object.  You
+**	also rack up incredible damages.
+*/
+/** Rams whatever is at ix,iy. */
+export async function ram(t, ix, iy) {
+    const { Ship, Game, Param } = t.s;
+    let i;
+    t.io.printf('\x07RED ALERT\x07: collision imminent\n');
+    const c = t.s.Sect[ix][iy];
+    switch (c) {
+        case KLINGON:
+            t.io.printf('%s rams Klingon at %d,%d\n', Ship.shipname, ix, iy);
+            await killk(t, ix, iy);
+            break;
+        case STAR:
+        case INHABIT:
+            t.io.printf("Yeoman Rand: Captain, isn't it getting hot in here?\n");
+            await t.io.sleep(2);
+            t.io.printf('Spock: Hull temperature approaching 550 Degrees ' +
+                'Kelvin.\n');
+            await lose(t, L_STAR);
+        // falls through (lose() never returns)
+        case BASE:
+            t.io.printf('You ran into the starbase at %d,%d\n', ix, iy);
+            await killb(t, Ship.quadx, Ship.quady);
+            /* don't penalize the captain if it wasn't his fault */
+            if (!damaged(t, SINS))
+                Game.killb += 1;
+            break;
+    }
+    await t.io.sleep(2);
+    t.io.printf('%s heavily damaged\n', Ship.shipname);
+    /* select the number of deaths to occur */
+    i = 10 + ranf(t.rnd, 20 * Game.skill);
+    Game.deaths += i;
+    Ship.crew -= i;
+    t.io.printf('McCoy: Take it easy Jim; we had %d casualties.\n', i);
+    /* damage devices with an 80% probability */
+    for (i = 0; i < NDEV; i++) {
+        if (ranf(t.rnd, 100) < 20)
+            continue;
+        await damage(t, i, (2.5 * (franf(t.rnd) + franf(t.rnd)) + 1.0) * Param.damfac[i]);
+    }
+    /* no chance that your shields remained up in all that */
+    Ship.shldup = 0;
+}
+//# sourceMappingURL=ram.js.map

package/dist/builtins/games/trek/ram.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"ram.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/ram.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;GAIG;AACH,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,OAAO,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,MAAM,aAAa,CAAC;AAE/E,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,WAAW,CAAC;AACzC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAExC;;;;;;;;;EASE;AAEF,iCAAiC;AACjC,MAAM,CAAC,KAAK,UAAU,GAAG,CAAC,CAAO,EAAE,EAAU,EAAE,EAAU;IACvD,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IAClC,IAAI,CAAS,CAAC;IAEd,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,yCAAyC,CAAC,CAAC;IACvD,MAAM,CAAC,GAAW,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC;IACnC,QAAQ,CAAC,EAAE,CAAC;QACV,KAAK,OAAO;YACV,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,4BAA4B,EAAE,IAAI,CAAC,QAAQ,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;YACjE,MAAM,KAAK,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;YACvB,MAAM;QAER,KAAK,IAAI,CAAC;QACV,KAAK,OAAO;YACV,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,uDAAuD,CAAC,CAAC;YACrE,MAAM,CAAC,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YACpB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,kDAAkD;gBAC5D,WAAW,CAAC,CAAC;YACf,MAAM,IAAI,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;QACtB,uCAAuC;QACzC,KAAK,IAAI;YACP,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,sCAAsC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;YAC5D,MAAM,KAAK,CAAC,CAAC,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC;YACvC,uDAAuD;YACvD,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,IAAI,CAAC;gBAAE,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;YACvC,MAAM;IACV,CAAC;IACD,MAAM,CAAC,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;IACpB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,sBAAsB,EAAE,IAAI,CAAC,QAAQ,CAAC,CAAC;IAEnD,0CAA0C;IAC1C,CAAC,GAAG,EAAE,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC;IACtC,IAAI,CAAC,MAAM,IAAI,CAAC,CAAC;IACjB,IAAI,CAAC,IAAI,IAAI,CAAC,CAAC;IACf,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,kDAAkD,EAAE,CAAC,CAAC,CAAC;IAEnE,4CAA4C;IAC5C,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;QAC1B,IAAI,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,GAAG,EAAE;YAAE,SAAS;QACpC,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC,GAAG,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC;IACpF,CAAC;IAED,yDAAyD;IACzD,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;AAClB,CAAC"}

package/dist/builtins/games/trek/rand.d.ts

@@ -0,0 +1,29 @@
+/** glibc's random(), from a seed. */
+export declare class TrekRandom {
+    private table;
+    private front;
+    private rear;
+    /**
+     * @param seed - As srandom() takes it.
+     */
+    constructor(seed: number);
+    /** Seeds as glibc's srandom (TYPE_3, degree 31, separation 3). */
+    srandom(seed: number): void;
+    /** The next value, 0 .. RANDOM_MAX. */
+    random(): number;
+}
+/**
+ * ranf: a random integer, 0 .. max-1 (0 when max <= 0).
+ *
+ * @param rnd - The source.
+ * @param max - The bound.
+ * @returns The integer.
+ */
+export declare function ranf(rnd: TrekRandom, max: number): number;
+/**
+ * franf: a random double, 0 .. 1.
+ *
+ * @param rnd - The source.
+ * @returns The double.
+ */
+export declare function franf(rnd: TrekRandom): number;

package/dist/builtins/games/trek/rand.js

@@ -0,0 +1,109 @@
+/*
+ * rand.ts: a TypeScript port of BSD trek(6), from ranf.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): ranf.c 1.7 2009/05/25.
+ *
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+/**
+ * @file trek's random source: ranf() and franf() over random().
+ *
+ * random() is glibc's, reproduced exactly (the additive feedback generator
+ * of degree 31, seeded as srandom() seeds it), so a game played here from a
+ * seed is the game the C plays from the same seed: the port is checked
+ * against the original, transcript for transcript.
+ *
+ * @module
+ */
+import { RANDOM_MAX } from './consts.js';
+/** glibc's random(), from a seed. */
+export class TrekRandom {
+    table = [];
+    front = 0;
+    rear = 0;
+    /**
+     * @param seed - As srandom() takes it.
+     */
+    constructor(seed) {
+        this.srandom(seed);
+    }
+    /** Seeds as glibc's srandom (TYPE_3, degree 31, separation 3). */
+    srandom(seed) {
+        let word = seed | 0;
+        if (word === 0)
+            word = 1;
+        const state = new Array(31);
+        state[0] = word;
+        for (let i = 1; i < 31; i++) {
+            // 16807 * state[i-1] % 2147483647, by Schrage's method, as glibc does.
+            const hi = Math.trunc(word / 127773);
+            const lo = word % 127773;
+            word = 16807 * lo - 2836 * hi;
+            if (word < 0)
+                word += 2147483647;
+            state[i] = word;
+        }
+        this.table = state;
+        this.front = 3;
+        this.rear = 0;
+        // glibc discards the first 310 outputs.
+        for (let i = 0; i < 310; i++)
+            this.random();
+    }
+    /** The next value, 0 .. RANDOM_MAX. */
+    random() {
+        const sum = (this.table[this.front] + this.table[this.rear]) | 0;
+        this.table[this.front] = sum;
+        const result = (sum >>> 1) & RANDOM_MAX;
+        this.front = (this.front + 1) % 31;
+        this.rear = (this.rear + 1) % 31;
+        return result;
+    }
+}
+/**
+ * ranf: a random integer, 0 .. max-1 (0 when max <= 0).
+ *
+ * @param rnd - The source.
+ * @param max - The bound.
+ * @returns The integer.
+ */
+export function ranf(rnd, max) {
+    if (max <= 0)
+        return 0;
+    return rnd.random() % max;
+}
+/**
+ * franf: a random double, 0 .. 1.
+ *
+ * @param rnd - The source.
+ * @returns The double.
+ */
+export function franf(rnd) {
+    return rnd.random() / RANDOM_MAX;
+}
+//# sourceMappingURL=rand.js.map

package/dist/builtins/games/trek/rand.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"rand.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/rand.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;;;;;GASG;AACH,OAAO,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC;AAEzC,qCAAqC;AACrC,MAAM,OAAO,UAAU;IACb,KAAK,GAAa,EAAE,CAAC;IACrB,KAAK,GAAW,CAAC,CAAC;IAClB,IAAI,GAAW,CAAC,CAAC;IAEzB;;OAEG;IACH,YAAY,IAAY;QACtB,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC;IACrB,CAAC;IAED,kEAAkE;IAC3D,OAAO,CAAC,IAAY;QACzB,IAAI,IAAI,GAAW,IAAI,GAAG,CAAC,CAAC;QAC5B,IAAI,IAAI,KAAK,CAAC;YAAE,IAAI,GAAG,CAAC,CAAC;QACzB,MAAM,KAAK,GAAa,IAAI,KAAK,CAAS,EAAE,CAAC,CAAC;QAC9C,KAAK,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;QAChB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;YACpC,uEAAuE;YACvE,MAAM,EAAE,GAAW,IAAI,CAAC,KAAK,CAAC,IAAI,GAAG,MAAM,CAAC,CAAC;YAC7C,MAAM,EAAE,GAAW,IAAI,GAAG,MAAM,CAAC;YACjC,IAAI,GAAG,KAAK,GAAG,EAAE,GAAG,IAAI,GAAG,EAAE,CAAC;YAC9B,IAAI,IAAI,GAAG,CAAC;gBAAE,IAAI,IAAI,UAAU,CAAC;YACjC,KAAK,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;QAClB,CAAC;QACD,IAAI,CAAC,KAAK,GAAG,KAAK,CAAC;QACnB,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC;QACf,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC;QACd,wCAAwC;QACxC,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE;YAAE,IAAI,CAAC,MAAM,EAAE,CAAC;IACtD,CAAC;IAED,uCAAuC;IAChC,MAAM;QACX,MAAM,GAAG,GAAW,CAAE,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,KAAK,CAAY,GAAI,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,CAAY,CAAC,GAAG,CAAC,CAAC;QACjG,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,GAAG,CAAC;QAC7B,MAAM,MAAM,GAAW,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,UAAU,CAAC;QAChD,IAAI,CAAC,KAAK,GAAG,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC;QACnC,IAAI,CAAC,IAAI,GAAG,CAAC,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC;QACjC,OAAO,MAAM,CAAC;IAChB,CAAC;CACF;AAED;;;;;;GAMG;AACH,MAAM,UAAU,IAAI,CAAC,GAAe,EAAE,GAAW;IAC/C,IAAI,GAAG,IAAI,CAAC;QAAE,OAAO,CAAC,CAAC;IACvB,OAAO,GAAG,CAAC,MAAM,EAAE,GAAG,GAAG,CAAC;AAC5B,CAAC;AAED;;;;;GAKG;AACH,MAAM,UAAU,KAAK,CAAC,GAAe;IACnC,OAAO,GAAG,CAAC,MAAM,EAAE,GAAG,UAAU,CAAC;AACnC,CAAC"}

package/dist/builtins/games/trek/rest.d.ts

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** The rest command. */
+export declare function rest(t: Trek, _v: number): Promise<void>;

package/dist/builtins/games/trek/rest.js

@@ -0,0 +1,76 @@
+/*
+ * rest.ts: a TypeScript port of BSD trek(6), from rest.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): rest.c 1.9 2009/05/24.
+ *
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+/**
+ * @file Resting for repairs: waiting for something to happen, never
+ * through a long range tractor beam.
+ *
+ * @module
+ */
+import { DOCKED, E_LRTB } from './consts.js';
+import { getfltpar, getynpar } from './getpar.js';
+/*
+**  REST FOR REPAIRS
+**
+**	You sit around and wait for repairs to happen.  Actually, you
+**	sit around and wait for anything to happen.  I do want to point
+**	out however, that Klingons are not as patient as you are, and
+**	they tend to attack you while you are resting.
+**
+**	You can never rest through a long range tractor beam.
+**
+**	In events() you will be given an opportunity to cancel the
+**	rest period if anything momentous happens.
+*/
+/** The rest command. */
+export async function rest(t, _v) {
+    const { Ship, Move } = t.s;
+    let tm;
+    /* get the time to rest */
+    tm = await getfltpar(t, 'How long');
+    if (tm <= 0.0)
+        return;
+    const percent = Math.trunc(100 * tm / t.s.Now.time + 0.5);
+    if (percent >= 70) {
+        t.io.printf('Spock: That would take %d%% of our remaining time.\n', percent);
+        if (!(await getynpar(t, 'Are you really certain that is wise')))
+            return;
+    }
+    Move.time = tm;
+    /* boundary condition is the LRTB */
+    tm = t.s.Event[t.s.Now.eventptr[E_LRTB]].date - t.s.Now.date;
+    if (Ship.cond !== DOCKED && Move.time > tm)
+        Move.time = tm + 0.0001;
+    Move.free = 0;
+    Move.resting = 1;
+}
+//# sourceMappingURL=rest.js.map

package/dist/builtins/games/trek/rest.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"rest.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/rest.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAE7C,OAAO,EAAE,SAAS,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AAElD;;;;;;;;;;;;EAYE;AAEF,wBAAwB;AACxB,MAAM,CAAC,KAAK,UAAU,IAAI,CAAC,CAAO,EAAE,EAAU;IAC5C,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IAC3B,IAAI,EAAU,CAAC;IAEf,0BAA0B;IAC1B,EAAE,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,UAAU,CAAC,CAAC;IACpC,IAAI,EAAE,IAAI,GAAG;QAAE,OAAO;IACtB,MAAM,OAAO,GAAW,IAAI,CAAC,KAAK,CAAC,GAAG,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC;IAClE,IAAI,OAAO,IAAI,EAAE,EAAE,CAAC;QAClB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,sDAAsD,EAChE,OAAO,CAAC,CAAC;QACX,IAAI,CAAC,CAAC,MAAM,QAAQ,CAAC,CAAC,EAAE,qCAAqC,CAAC,CAAC;YAAE,OAAO;IAC1E,CAAC;IACD,IAAI,CAAC,IAAI,GAAG,EAAE,CAAC;IAEf,oCAAoC;IACpC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC;IAC7D,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM,IAAI,IAAI,CAAC,IAAI,GAAG,EAAE;QAAE,IAAI,CAAC,IAAI,GAAG,EAAE,GAAG,MAAM,CAAC;IACpE,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC;IACd,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC;AACnB,CAAC"}

package/dist/builtins/games/trek/schedule.d.ts

@@ -0,0 +1,23 @@
+/**
+ * @file The event queue: scheduling, rescheduling and unscheduling an
+ * event, and the abbreviated forms whose dates are drawn at random.
+ *
+ * An event is named by its slot in `Event`; -1 stands for the C's NULL.
+ *
+ * @module
+ */
+import type { Trek } from './context.js';
+/**
+ * SCHEDULE AN EVENT: an event of type 'type' is scheduled for time NOW +
+ * 'offset' into the first available slot; 'x', 'y' and 'z' are its
+ * attributes. The slot is returned.
+ */
+export declare function schedule(t: Trek, type: number, offset: number, x: number, y: number, z: number): number;
+/** RESCHEDULE AN EVENT: the event in slot 'e' is rescheduled to the current time plus 'offset'. */
+export declare function reschedule(t: Trek, e: number, offset: number): void;
+/** UNSCHEDULE AN EVENT: the event at slot 'e' is deleted. */
+export declare function unschedule(t: Trek, e: number): void;
+/** Abbreviated schedule routine: the event index and a factor for the time figure. */
+export declare function xsched(t: Trek, ev: number, factor: number, x: number, y: number, z: number): number;
+/** Simplified reschedule routine: the event, its index and the division factor. */
+export declare function xresched(t: Trek, e: number, ev: number, factor: number): void;

package/dist/builtins/games/trek/schedule.js

@@ -0,0 +1,55 @@
+import { E_EVENT, E_GHOST, MAXEVENTS, TOOLARGE } from './consts.js';
+import { franf } from './rand.js';
+/**
+ * SCHEDULE AN EVENT: an event of type 'type' is scheduled for time NOW +
+ * 'offset' into the first available slot; 'x', 'y' and 'z' are its
+ * attributes. The slot is returned.
+ */
+export function schedule(t, type, offset, x, y, z) {
+    const date = t.s.Now.date + offset;
+    for (let i = 0; i < MAXEVENTS; i++) {
+        const e = t.s.Event[i];
+        if (e.evcode)
+            continue;
+        // got a slot
+        if (t.s.Trace)
+            t.io.printf('schedule: type %d @ %.2f slot %d parm %d %d %d\n', type, date, i, x, y, z);
+        e.evcode = type;
+        e.date = date;
+        e.x = x;
+        e.y = y;
+        e.systemname = z;
+        t.s.Now.eventptr[type & ~E_GHOST] = i;
+        return i;
+    }
+    t.io.printf('trek: Cannot schedule event %d parm %d %d %d\n', type, x, y, z);
+    return t.io.exit(1);
+}
+/** RESCHEDULE AN EVENT: the event in slot 'e' is rescheduled to the current time plus 'offset'. */
+export function reschedule(t, e, offset) {
+    const ev = t.s.Event[e];
+    const date = t.s.Now.date + offset;
+    ev.date = date;
+    if (t.s.Trace)
+        t.io.printf('reschedule: type %d parm %d %d %d @ %.2f\n', ev.evcode, ev.x, ev.y, ev.systemname, date);
+}
+/** UNSCHEDULE AN EVENT: the event at slot 'e' is deleted. */
+export function unschedule(t, e) {
+    const ev = t.s.Event[e];
+    if (t.s.Trace)
+        t.io.printf('unschedule: type %d @ %.2f parm %d %d %d\n', ev.evcode, ev.date, ev.x, ev.y, ev.systemname);
+    t.s.Now.eventptr[ev.evcode & E_EVENT] = -1;
+    ev.date = TOOLARGE;
+    ev.evcode = 0;
+}
+/** Abbreviated schedule routine: the event index and a factor for the time figure. */
+export function xsched(t, ev, factor, x, y, z) {
+    const when = -t.s.Param.eventdly[ev] * t.s.Param.time * Math.log(franf(t.rnd)) / factor;
+    return schedule(t, ev, when, x, y, z);
+}
+/** Simplified reschedule routine: the event, its index and the division factor. */
+export function xresched(t, e, ev, factor) {
+    const when = -t.s.Param.eventdly[ev] * t.s.Param.time * Math.log(franf(t.rnd)) / factor;
+    reschedule(t, e, when);
+}
+//# sourceMappingURL=schedule.js.map

package/dist/builtins/games/trek/schedule.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"schedule.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/schedule.ts"],"names":[],"mappings":"AAyCA,OAAO,EAAE,OAAO,EAAE,OAAO,EAAE,SAAS,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AACpE,OAAO,EAAE,KAAK,EAAE,MAAM,WAAW,CAAC;AAGlC;;;;GAIG;AACH,MAAM,UAAU,QAAQ,CAAC,CAAO,EAAE,IAAY,EAAE,MAAc,EAAE,CAAS,EAAE,CAAS,EAAE,CAAS;IAC7F,MAAM,IAAI,GAAW,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,GAAG,MAAM,CAAC;IAC3C,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE,CAAC;QAC3C,MAAM,CAAC,GAAc,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAc,CAAC;QAC/C,IAAI,CAAC,CAAC,MAAM;YAAE,SAAS;QACvB,aAAa;QACb,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,kDAAkD,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;QACvG,CAAC,CAAC,MAAM,GAAG,IAAI,CAAC;QAChB,CAAC,CAAC,IAAI,GAAG,IAAI,CAAC;QACd,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QACR,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QACR,CAAC,CAAC,UAAU,GAAG,CAAC,CAAC;QACjB,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,IAAI,GAAG,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC;QACtC,OAAO,CAAC,CAAC;IACX,CAAC;IACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,gDAAgD,EAAE,IAAI,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IAC7E,OAAO,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;AACtB,CAAC;AAED,mGAAmG;AACnG,MAAM,UAAU,UAAU,CAAC,CAAO,EAAE,CAAS,EAAE,MAAc;IAC3D,MAAM,EAAE,GAAc,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAc,CAAC;IAChD,MAAM,IAAI,GAAW,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,GAAG,MAAM,CAAC;IAC3C,EAAE,CAAC,IAAI,GAAG,IAAI,CAAC;IACf,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK;QAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,4CAA4C,EAAE,EAAE,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,UAAU,EAAE,IAAI,CAAC,CAAC;AACvH,CAAC;AAED,6DAA6D;AAC7D,MAAM,UAAU,UAAU,CAAC,CAAO,EAAE,CAAS;IAC3C,MAAM,EAAE,GAAc,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAc,CAAC;IAChD,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK;QAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,4CAA4C,EAAE,EAAE,CAAC,MAAM,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,UAAU,CAAC,CAAC;IACxH,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,EAAE,CAAC,MAAM,GAAG,OAAO,CAAC,GAAG,CAAC,CAAC,CAAC;IAC3C,EAAE,CAAC,IAAI,GAAG,QAAQ,CAAC;IACnB,EAAE,CAAC,MAAM,GAAG,CAAC,CAAC;AAChB,CAAC;AAED,sFAAsF;AACtF,MAAM,UAAU,MAAM,CAAC,CAAO,EAAE,EAAU,EAAE,MAAc,EAAE,CAAS,EAAE,CAAS,EAAE,CAAS;IACzF,MAAM,IAAI,GAAW,CAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,QAAQ,CAAC,EAAE,CAAY,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,MAAM,CAAC;IAC5G,OAAO,QAAQ,CAAC,CAAC,EAAE,EAAE,EAAE,IAAI,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;AACxC,CAAC;AAED,mFAAmF;AACnF,MAAM,UAAU,QAAQ,CAAC,CAAO,EAAE,CAAS,EAAE,EAAU,EAAE,MAAc;IACrE,MAAM,IAAI,GAAW,CAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,QAAQ,CAAC,EAAE,CAAY,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,MAAM,CAAC;IAC5G,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,CAAC;AACzB,CAAC"}

package/dist/builtins/games/trek/score.d.ts

@@ -0,0 +1,8 @@
+/**
+ * @file The score: each item that counts, and the total.
+ *
+ * @module
+ */
+import type { Trek } from './context.js';
+/** PRINT OUT THE CURRENT SCORE */
+export declare function score(t: Trek): number;