create-mendix-widget-gleam 2.0.13 → 2.0.15

package/tui/build/dev/javascript/etch/etch/terminal.mjs

@@ -0,0 +1,137 @@
+import * as $int from "../../gleam_stdlib/gleam/int.mjs";
+import * as $consts from "../etch/internal/consts.mjs";
+import { csi, esc } from "../etch/internal/consts.mjs";
+import { CustomType as $CustomType } from "../gleam.mjs";
+import { enter_raw, exit_raw, is_raw_mode, window_size } from "../terminal/terminal_ffi.mjs";
+
+export { enter_raw, exit_raw, is_raw_mode, window_size };
+
+export class All extends $CustomType {}
+export const ClearType$All = () => new All();
+export const ClearType$isAll = (value) => value instanceof All;
+
+export class Purge extends $CustomType {}
+export const ClearType$Purge = () => new Purge();
+export const ClearType$isPurge = (value) => value instanceof Purge;
+
+export class FromCursorDown extends $CustomType {}
+export const ClearType$FromCursorDown = () => new FromCursorDown();
+export const ClearType$isFromCursorDown = (value) =>
+  value instanceof FromCursorDown;
+
+export class FromCursorUp extends $CustomType {}
+export const ClearType$FromCursorUp = () => new FromCursorUp();
+export const ClearType$isFromCursorUp = (value) =>
+  value instanceof FromCursorUp;
+
+export class CurrentLine extends $CustomType {}
+export const ClearType$CurrentLine = () => new CurrentLine();
+export const ClearType$isCurrentLine = (value) => value instanceof CurrentLine;
+
+export class UntilNewLine extends $CustomType {}
+export const ClearType$UntilNewLine = () => new UntilNewLine();
+export const ClearType$isUntilNewLine = (value) =>
+  value instanceof UntilNewLine;
+
+export class FailedToEnterRawMode extends $CustomType {}
+export const TerminalError$FailedToEnterRawMode = () =>
+  new FailedToEnterRawMode();
+export const TerminalError$isFailedToEnterRawMode = (value) =>
+  value instanceof FailedToEnterRawMode;
+
+export class FailedToExitRawMode extends $CustomType {}
+export const TerminalError$FailedToExitRawMode = () =>
+  new FailedToExitRawMode();
+export const TerminalError$isFailedToExitRawMode = (value) =>
+  value instanceof FailedToExitRawMode;
+
+export class CouldNotGetWindowSize extends $CustomType {}
+export const TerminalError$CouldNotGetWindowSize = () =>
+  new CouldNotGetWindowSize();
+export const TerminalError$isCouldNotGetWindowSize = (value) =>
+  value instanceof CouldNotGetWindowSize;
+
+/**
+ * Clears the terminal. See [`ClearType`](terminal.html#ClearType).
+ * It is prefered not to use this directly. See [`Clear`](command.html#Clear).
+ */
+export function clear(t) {
+  if (t instanceof All) {
+    return csi + "2J";
+  } else if (t instanceof Purge) {
+    return csi + "3J";
+  } else if (t instanceof FromCursorDown) {
+    return csi + "J";
+  } else if (t instanceof FromCursorUp) {
+    return csi + "1J";
+  } else if (t instanceof CurrentLine) {
+    return csi + "2K";
+  } else {
+    return csi + "K";
+  }
+}
+
+/**
+ * Sets terminal title.
+ * It is prefered not to use this directly. See [`SetTitle`](command.html#SetTitle).
+ */
+export function set_title(s) {
+  return ((esc + "]0;") + s) + "\u{0007}";
+}
+
+/**
+ * Disable line wrap.
+ * It is prefered not to use this directly. See [`DisableLineWrap`](command.html#DisableLineWrap).
+ */
+export function disable_line_wrap() {
+  return csi + "?7l";
+}
+
+/**
+ * Enable line wrap.
+ * It is prefered not to use this directly. See [`EnableLineWrap`](command.html#EnableLineWrap).
+ */
+export function enable_line_wrap() {
+  return csi + "?7h";
+}
+
+/**
+ * Scroll N rows up.
+ * It is prefered not to use this directly. See [`ScrollUp`](command.html#ScrollUp).
+ */
+export function scroll_up(n) {
+  return (csi + $int.to_string(n)) + "S";
+}
+
+/**
+ * Scroll N rows down.
+ * It is prefered not to use this directly. See [`ScrollDown`](command.html#ScrollDown).
+ */
+export function scroll_down(n) {
+  return (csi + $int.to_string(n)) + "T";
+}
+
+/**
+ * Enter alternative screen.
+ * It is prefered not to use this directly. See [`EnterAlternative`](command.html#EnterAlternative).
+ */
+export function enter_alternative() {
+  return csi + "?1049h";
+}
+
+/**
+ * Leave alternative screen.
+ * It is prefered not to use this directly. See [`LeaveAlternative`](command.html#LeaveAlternative).
+ */
+export function leave_alternative() {
+  return csi + "?1049l";
+}
+
+/**
+ * Set window size. It does not work on most modern terminals
+ * due to security issues.
+ * It is prefered not to use this directly. See [`SetSize`](command.html#SetSize).
+ */
+export function set_size(x, y) {
+  return ((((csi + "8;") + $int.to_string(x)) + ";") + $int.to_string(y)) + "t";
+}

package/tui/build/dev/javascript/etch/gleam.mjs

@@ -0,0 +1 @@
+export * from "../prelude.mjs";

package/tui/build/dev/javascript/etch/input/event_ffi.erl

@@ -0,0 +1,73 @@
+-module(event_ffi).
+
+-behaviour(gen_server).
+
+-export([start_link/0, poll/1, push/1, read/0, init/1, handle_call/3, handle_cast/2,
+         handle_info/2, terminate/2, code_change/3]).
+
+start_link() ->
+    gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
+
+poll(TimeoutMs) when is_integer(TimeoutMs), TimeoutMs >= 0 ->
+    case whereis(?MODULE) of
+        undefined ->
+            logger:error("Event server not started. Did you forget to call event.init_event_se"
+                         "rver()?"),
+            exit(event_loop_not_running);
+        _Pid ->
+            gen_server:call(?MODULE, {poll, TimeoutMs}, TimeoutMs + 50)
+    end.
+
+read() ->
+    case whereis(?MODULE) of
+        undefined ->
+            logger:error("Event server not started. Did you forget to call event.init_event_se"
+                         "rver()?"),
+            exit(event_loop_not_running);
+        _Pid ->
+            gen_server:call(?MODULE, read, infinity)
+    end.
+
+push(Event) ->
+    gen_server:cast(?MODULE, {push, Event}).
+
+init([]) ->
+    gen_event:add_handler(erl_signal_server, signal_handler, self()),
+    {ok, {queue:new(), none}}.
+
+handle_call({poll, _Timeout}, _From, {Q, Waiter}) ->
+    case queue:out(Q) of
+        {empty, _} ->
+            {reply, none, {Q, Waiter}};
+        {{value, Ev}, Q2} ->
+            {reply, {some, Ev}, {Q2, Waiter}}
+    end;
+handle_call(read, From, {Q, none}) ->
+    case queue:out(Q) of
+        {empty, _} ->
+            {noreply, {Q, From}};
+        {{value, Ev}, Q2} ->
+            {reply, {some, Ev}, {Q2, none}}
+    end;
+handle_call(read, From, {Q, Waiter}) ->
+    gen_server:reply(From, none),
+    {reply, ok, {Q, Waiter}};
+handle_call(_Other, _From, State) ->
+    {reply, ok, State}.
+
+handle_cast({push, Ev}, {Q, none}) ->
+    {noreply, {queue:in(Ev, Q), none}};
+handle_cast({push, Ev}, {Q, Waiter}) ->
+    gen_server:reply(Waiter, {some, Ev}),
+    {noreply, {Q, none}};
+handle_cast(_Other, State) ->
+    {noreply, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+handle_info(_Info, State) ->
+    {noreply, State}.

package/tui/build/dev/javascript/etch/input/input_ffi.mjs

@@ -0,0 +1,192 @@
+import { None, Some } from "../../gleam_stdlib/gleam/option.mjs";
+import { Ok, Error } from "../gleam.mjs";
+import { FailedToParseEvent, Resize } from "../etch/event.mjs";
+import { window_size } from "../terminal/terminal_ffi.mjs";
+let queue = [];
+
+let resolvers = [];
+
+export function get_chars(str) {
+  return new Promise((resolve, reject) => {
+    const wasRaw = !!process.stdin.isRaw;
+    try {
+      process.stdin.resume();
+    } catch {}
+    const onData = (data) => {
+      cleanup();
+      const buf = Buffer.isBuffer(data)
+        ? data
+        : Buffer.from(String(data), "utf8");
+      let end = buf.length;
+      if (end > 0 && buf[end - 1] === 0x0a) {
+        // LF
+        end--;
+        if (end > 0 && buf[end - 1] === 0x0d) {
+          // CR
+          end--;
+        }
+      }
+      resolve(Array.from(buf.slice(0, end)));
+    };
+    const onEnd = () => {
+      cleanup();
+      resolve([]);
+    };
+    const onError = (err) => {
+      cleanup();
+      reject(err);
+    };
+    function cleanup() {
+      process.stdin.off("data", onData);
+      process.stdin.off("end", onEnd);
+      process.stdin.off("error", onError);
+      try {
+        process.stdin.pause();
+      } catch {}
+      try {
+        if (!wasRaw && process.stdin.isRaw) process.stdin.setRawMode(false);
+      } catch {}
+    }
+    process.stdin.on("data", onData);
+    process.stdin.on("end", onEnd);
+    process.stdin.on("error", onError);
+  });
+}
+
+export function push(event) {
+  if (resolvers.length > 0) {
+    const resolve = resolvers.shift();
+    resolve(new Some(event));
+  } else {
+    queue.push(new Some(event));
+  }
+}
+
+export function poll(timeout_ms) {
+  if (queue.length > 0) {
+    return Promise.resolve(queue.shift());
+  }
+
+  return new Promise((resolve) => {
+    const timer = setTimeout(() => {
+      const index = resolvers.indexOf(resolver);
+      if (index !== -1) {
+        resolvers.splice(index, 1);
+      }
+      resolve(new None());
+    }, timeout_ms);
+
+    const resolver = (event) => {
+      clearTimeout(timer);
+      resolve(new Some(event));
+    };
+
+    resolvers.push(resolver);
+  });
+}
+
+export function read() {
+  if (queue.length > 0) {
+    return Promise.resolve(queue.shift());
+  }
+
+  return new Promise((resolve) => {
+    resolvers.push(resolve);
+  });
+}
+
+export function get_cursor_position() {
+  return new Promise((resolve, reject) => {
+    const wasRaw = !!process.stdin.isRaw;
+    try {
+      process.stdin.resume();
+    } catch {}
+    if (!process.stdin.isRaw) {
+      process.stdin.setRawMode(true);
+    }
+    const onData = (data) => {
+      const buf = Buffer.isBuffer(data)
+        ? data
+        : Buffer.from(String(data), "utf8");
+
+      const str = buf.toString("utf8");
+      const cursorMatch = str.match(/^\x1b\[(\d+);(\d+)R/);
+      if (cursorMatch) {
+        cleanup();
+        resolve(new Ok([parseInt(cursorMatch[1]), parseInt(cursorMatch[2])]));
+      } else {
+        cleanup();
+        resolve(
+          new Error(new FailedToParseEvent("Could not get cursor position")),
+        );
+      }
+    };
+    function cleanup() {
+      process.stdin.off("data", onData);
+      try {
+        process.stdin.pause();
+      } catch {}
+      try {
+        if (!wasRaw && process.stdin.isRaw) process.stdin.setRawMode(false);
+      } catch {}
+    }
+    process.stdin.on("data", onData);
+    process.stdout.write("\x1b[6n");
+  });
+}
+
+export function get_keyboard_enhancement_flags_code() {
+  return new Promise((resolve, reject) => {
+    const wasRaw = !!process.stdin.isRaw;
+    try {
+      process.stdin.resume();
+    } catch {}
+    if (!process.stdin.isRaw) {
+      process.stdin.setRawMode(true);
+    }
+
+    const onData = (data) => {
+      const buf = Buffer.isBuffer(data)
+        ? data
+        : Buffer.from(String(data), "utf8");
+
+      const str = buf.toString("utf8");
+
+      if (str.startsWith("\x1b[?") && str.endsWith("u")) {
+        cleanup();
+        const flagsStr = str.slice(3);
+        resolve(new Ok(flagsStr));
+      } else {
+        cleanup();
+        resolve(
+          new Error(new FailedToParseEvent("Could not get enhancement flags")),
+        );
+      }
+    };
+
+    function cleanup() {
+      process.stdin.off("data", onData);
+      try {
+        process.stdin.pause();
+      } catch {}
+      try {
+        if (!wasRaw && process.stdin.isRaw) process.stdin.setRawMode(false);
+      } catch {}
+    }
+
+    process.stdin.on("data", onData);
+    process.stdout.write("\x1b[?u");
+  });
+}
+
+export function handle_sigwinch() {
+  process.on("SIGWINCH", () => {
+    const size = window_size();
+    if (size instanceof Ok) {
+      const [columns, rows] = size["0"];
+      push(new Ok(new Resize(columns, rows)));
+    } else {
+      push(new Error(new CouldNotGetWindowSize()));
+    }
+  });
+}

package/tui/build/dev/javascript/etch/input/signal_handler.erl

@@ -0,0 +1,33 @@
+-module(signal_handler).
+
+-behaviour(gen_event).
+
+-export([init/1, handle_event/2, handle_info/2, code_change/3, terminate/2,
+         handle_call/2]).
+
+init(Subject) ->
+    ok = os:set_signal(sigwinch, handle),
+    {ok, Subject}.
+
+handle_event(sigwinch, State) ->
+    case terminal_ffi:window_size() of
+        {ok, {Cols, Rows}} ->
+            event_ffi:push({ok, {resize, Cols, Rows}});
+        _ ->
+            event_ffi:push({error, could_not_get_window_size})
+    end,
+    {ok, State};
+handle_event(_Event, State) ->
+    {ok, State}.
+
+handle_info(_Info, State) ->
+    {ok, State}.
+
+handle_call(_, State) ->
+    {ok, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+code_change(_Old, State, _Extra) ->
+    {ok, State}.

package/tui/build/dev/javascript/etch/terminal/terminal_ffi.erl

@@ -0,0 +1,22 @@
+-module(terminal_ffi).
+
+-export([enter_raw/0, exit_raw/0, window_size/0]).
+
+enter_raw() ->
+    shell:start_interactive({noshell, raw}).
+
+exit_raw() ->
+    shell:start_interactive(noshell).
+
+window_size() ->
+    case io:columns() of
+        {ok, Cols} ->
+            case io:rows() of
+                {ok, Rows} ->
+                    {ok, {Cols, Rows}};
+                _ ->
+                    {error, could_not_get_window_size}
+            end;
+        _ ->
+            {error, could_not_get_window_size}
+    end.

package/tui/build/dev/javascript/etch/terminal/terminal_ffi.mjs

@@ -0,0 +1,37 @@
+import { Ok, Error } from "../gleam.mjs";
+import {
+  FailedToEnterRawMode,
+  FailedToExitRawMode,
+  CouldNotGetWindowSize,
+} from "../etch/terminal.mjs";
+
+export function enter_raw() {
+  try {
+    process.stdin.setRawMode(true);
+    return new Ok(undefined);
+  } catch (error) {
+    return new Error(new FailedToEnterRawMode());
+  }
+}
+
+export function exit_raw() {
+  try {
+    process.stdin.setRawMode(false);
+    return new Ok(undefined);
+  } catch (error) {
+    return new Error(new FailedToExitRawMode());
+  }
+}
+
+export function is_raw_mode() {
+  return process.stdin.isRaw;
+}
+
+export function window_size() {
+  const cols = process.stdout.columns;
+  const rows = process.stdout.rows;
+  if (cols === undefined || rows === undefined) {
+    return new Error(new CouldNotGetWindowSize());
+  }
+  return new Ok([cols, rows]);
+}

package/tui/build/dev/javascript/etch/terminal/tty_state.erl

@@ -0,0 +1,29 @@
+-module(tty_state).
+
+-export([init/0, set_raw/1, is_raw_mode/0]).
+
+init() ->
+    case ets:whereis(tty_state) of
+        undefined ->
+            ets:new(tty_state, [named_table, public, set]),
+            ets:insert(tty_state, {raw_mode, false});
+        _ ->
+            ok
+    end.
+
+set_raw(IsRaw) ->
+    case ets:whereis(tty_state) of
+        undefined ->
+            ets:new(tty_state, [named_table, public, set]);
+        _ ->
+            ok
+    end,
+    ets:insert(tty_state, {raw_mode, IsRaw}).
+
+is_raw_mode() ->
+    case ets:lookup(tty_state, raw_mode) of
+        [{raw_mode, true}] ->
+            true;
+        _ ->
+            false
+    end.

package/tui/build/dev/javascript/gleam_erlang/gleam/erlang/application.mjs

@@ -0,0 +1,38 @@
+import { CustomType as $CustomType } from "../../gleam.mjs";
+import * as $node from "../../gleam/erlang/node.mjs";
+
+export class Normal extends $CustomType {}
+export const StartType$Normal = () => new Normal();
+export const StartType$isNormal = (value) => value instanceof Normal;
+
+/**
+ * The application is distributed and started at the current node because of
+ * a takeover from Node, either because Erlang's `application:takeover/2`
+ * function has been called, or because the current node has higher priority
+ * than the previous node.
+ */
+export class Takeover extends $CustomType {
+  constructor(previous) {
+    super();
+    this.previous = previous;
+  }
+}
+export const StartType$Takeover = (previous) => new Takeover(previous);
+export const StartType$isTakeover = (value) => value instanceof Takeover;
+export const StartType$Takeover$previous = (value) => value.previous;
+export const StartType$Takeover$0 = (value) => value.previous;
+
+/**
+ * The application is distributed and started at the current node because of
+ * a failover from the previous node.
+ */
+export class Failover extends $CustomType {
+  constructor(previous) {
+    super();
+    this.previous = previous;
+  }
+}
+export const StartType$Failover = (previous) => new Failover(previous);
+export const StartType$isFailover = (value) => value instanceof Failover;
+export const StartType$Failover$previous = (value) => value.previous;
+export const StartType$Failover$0 = (value) => value.previous;

package/tui/build/dev/javascript/gleam_erlang/gleam/erlang/atom.mjs

@@ -0,0 +1,2 @@
+import * as $dynamic from "../../../gleam_stdlib/gleam/dynamic.mjs";
+import * as $decode from "../../../gleam_stdlib/gleam/dynamic/decode.mjs";

package/tui/build/dev/javascript/gleam_erlang/gleam/erlang/charlist.mjs

@@ -0,0 +1 @@
+export {}

package/tui/build/dev/javascript/gleam_erlang/gleam/erlang/node.mjs

@@ -0,0 +1,12 @@
+import { CustomType as $CustomType } from "../../gleam.mjs";
+import * as $atom from "../../gleam/erlang/atom.mjs";
+
+export class FailedToConnect extends $CustomType {}
+export const ConnectError$FailedToConnect = () => new FailedToConnect();
+export const ConnectError$isFailedToConnect = (value) =>
+  value instanceof FailedToConnect;
+
+export class LocalNodeIsNotAlive extends $CustomType {}
+export const ConnectError$LocalNodeIsNotAlive = () => new LocalNodeIsNotAlive();
+export const ConnectError$isLocalNodeIsNotAlive = (value) =>
+  value instanceof LocalNodeIsNotAlive;

package/tui/build/dev/javascript/gleam_erlang/gleam/erlang/port.mjs

@@ -0,0 +1 @@
+export {}