Graham McIntire
00a8f996f4
- Rename Gleam module from encoding_simple to encoding - Move Gleam files from src/aprs/ to src/aprsme/ to match project namespace - Create custom Mix task for Gleam compilation (lib/mix/tasks/gleam_compile.ex) - Update EncodingUtils to wrap Gleam implementation instead of pure Elixir - Add Gleam dependencies to mix.exs and configure build paths - Update Mix aliases to include Gleam compilation in test and compile tasks - Add Gleam support to GitHub Actions CI workflow with caching - Add GLEAM_INTEGRATION.md documentation - All 357 tests passing with Gleam integration 🤖 Generated with [Claude Code](https://claude.ai/code) Co-Authored-By: Claude <noreply@anthropic.com>
110 lines
2.4 KiB
Erlang
110 lines
2.4 KiB
Erlang
-module(gleam@pair).
|
||
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
|
||
-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({COH, any()}) -> COH.
|
||
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(), COK}) -> COK.
|
||
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({COL, COM}) -> {COM, COL}.
|
||
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({CON, COO}, fun((CON) -> COP)) -> {COP, COO}.
|
||
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({COQ, COR}, fun((COR) -> COS)) -> {COQ, COS}.
|
||
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(COT, COU) -> {COT, COU}.
|
||
new(First, Second) ->
|
||
{First, Second}.
|