Add support for extended-auth account types

2026-07-05 08:38:42 +02:00
parent eecff86500
commit 7a8e840793
4 changed files with 81 additions and 15 deletions
@@ -194,7 +194,16 @@ known_types() ->
    Forms = get_forms(),
    [{type, _, union, Types}] =
        [Def || {attribute, _, type, {known_type, Def, []}} <- Forms],
-    [Name || {atom,_, Name} <- Types].
+    lists:flatmap(fun known_type_entry/1, Types).
+
+known_type_entry({atom, _, Name}) ->
+    [Name];
+known_type_entry({type, _, tuple,
+                  [{atom, _, account_pubkey},
+                   {type, _, range, [{integer, _, Lo}, {integer, _, Hi}]}]}) ->
+    [{account_pubkey, N} || N <- lists:seq(Lo, Hi)];
+known_type_entry(Other) ->
+    error({unsupported_known_type, Other}).

 mapped_prefixes() ->
    Forms = get_forms(),