Initial commit

build/dev/javascript/gleam_stdlib/gleam@pair.erl

@@ -0,0 +1,110 @@
+-module(gleam@pair).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
+-define(FILEPATH, "src/gleam/pair.gleam").
+-export([first/1, second/1, swap/1, map_first/2, map_second/2, new/2]).
+
+-if(?OTP_RELEASE >= 27).
+-define(MODULEDOC(Str), -moduledoc(Str)).
+-define(DOC(Str), -doc(Str)).
+-else.
+-define(MODULEDOC(Str), -compile([])).
+-define(DOC(Str), -compile([])).
+-endif.
+
+-file("src/gleam/pair.gleam", 10).
+?DOC(
+    " Returns the first element in a pair.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " first(#(1, 2))\n"
+    " // -> 1\n"
+    " ```\n"
+).
+-spec first({CLF, any()}) -> CLF.
+first(Pair) ->
+    {A, _} = Pair,
+    A.
+
+-file("src/gleam/pair.gleam", 24).
+?DOC(
+    " Returns the second element in a pair.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " second(#(1, 2))\n"
+    " // -> 2\n"
+    " ```\n"
+).
+-spec second({any(), CLI}) -> CLI.
+second(Pair) ->
+    {_, A} = Pair,
+    A.
+
+-file("src/gleam/pair.gleam", 38).
+?DOC(
+    " Returns a new pair with the elements swapped.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " swap(#(1, 2))\n"
+    " // -> #(2, 1)\n"
+    " ```\n"
+).
+-spec swap({CLJ, CLK}) -> {CLK, CLJ}.
+swap(Pair) ->
+    {A, B} = Pair,
+    {B, A}.
+
+-file("src/gleam/pair.gleam", 53).
+?DOC(
+    " Returns a new pair with the first element having had `with` applied to\n"
+    " it.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " #(1, 2) |> map_first(fn(n) { n * 2 })\n"
+    " // -> #(2, 2)\n"
+    " ```\n"
+).
+-spec map_first({CLL, CLM}, fun((CLL) -> CLN)) -> {CLN, CLM}.
+map_first(Pair, Fun) ->
+    {A, B} = Pair,
+    {Fun(A), B}.
+
+-file("src/gleam/pair.gleam", 68).
+?DOC(
+    " Returns a new pair with the second element having had `with` applied to\n"
+    " it.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " #(1, 2) |> map_second(fn(n) { n * 2 })\n"
+    " // -> #(1, 4)\n"
+    " ```\n"
+).
+-spec map_second({CLO, CLP}, fun((CLP) -> CLQ)) -> {CLO, CLQ}.
+map_second(Pair, Fun) ->
+    {A, B} = Pair,
+    {A, Fun(B)}.
+
+-file("src/gleam/pair.gleam", 83).
+?DOC(
+    " Returns a new pair with the given elements. This can also be done using the dedicated\n"
+    " syntax instead: `new(1, 2) == #(1, 2)`.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " new(1, 2)\n"
+    " // -> #(1, 2)\n"
+    " ```\n"
+).
+-spec new(CLR, CLS) -> {CLR, CLS}.
+new(First, Second) ->
+    {First, Second}.