Packages
oaspec
0.66.0
0.68.0
0.67.0
0.66.0
0.65.0
0.64.0
0.63.0
0.62.0
0.61.0
0.60.0
0.59.0
0.58.1
0.58.0
0.57.0
0.56.0
0.55.0
0.54.0
0.53.0
0.52.0
0.51.0
0.50.0
0.49.0
0.48.0
0.47.0
0.46.0
0.45.0
0.44.0
0.43.0
0.42.0
0.41.0
0.40.0
0.39.0
0.38.0
0.37.0
0.36.0
0.35.0
0.34.0
0.33.0
0.32.0
0.31.0
0.30.0
0.29.0
0.28.0
0.27.0
0.26.0
0.25.0
0.24.0
0.23.0
0.22.0
0.21.0
0.20.0
0.19.0
0.18.0
0.17.0
0.16.0
0.15.0
0.14.0
0.13.0
0.12.0
0.11.0
0.10.0
0.9.0
0.8.0
0.7.0
0.6.3
0.6.1
0.6.0
0.5.0
0.4.0
0.3.0
0.1.3
Generate Gleam code from OpenAPI 3.x specifications
Current section
Files
Jump to
Current section
Files
src/oaspec@internal@openapi@dedup.erl
-module(oaspec@internal@openapi@dedup).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/oaspec/internal/openapi/dedup.gleam").
-export([dedup_enum_variants/1, dedup_property_names/1, dedup_param_field_names/1, dedup/1]).
-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.
?MODULEDOC(false).
-file("src/oaspec/internal/openapi/dedup.gleam", 179).
?DOC(false).
-spec next_unique_name(
binary(),
gleam@dict:dict(binary(), boolean()),
gleam@dict:dict(binary(), boolean()),
integer(),
binary()
) -> binary().
next_unique_name(Base, Input_names, Claimed, Suffix, Separator) ->
Candidate = <<<<Base/binary, Separator/binary>>/binary,
(erlang:integer_to_binary(Suffix))/binary>>,
case gleam@dict:has_key(Input_names, Candidate) orelse gleam@dict:has_key(
Claimed,
Candidate
) of
true ->
next_unique_name(Base, Input_names, Claimed, Suffix + 1, Separator);
false ->
Candidate
end.
-file("src/oaspec/internal/openapi/dedup.gleam", 155).
?DOC(false).
-spec deduplicate_strings_with_separator(list(binary()), binary()) -> list(binary()).
deduplicate_strings_with_separator(Names, Separator) ->
Input_names = gleam@list:fold(
Names,
maps:new(),
fun(Acc, Name) -> gleam@dict:insert(Acc, Name, true) end
),
{Result_rev, _} = gleam@list:fold(
Names,
{[], maps:new()},
fun(Acc@1, Name@1) ->
{Result, Claimed} = Acc@1,
case gleam@dict:has_key(Claimed, Name@1) of
false ->
{[Name@1 | Result],
gleam@dict:insert(Claimed, Name@1, true)};
true ->
Unique_name = next_unique_name(
Name@1,
Input_names,
Claimed,
2,
Separator
),
{[Unique_name | Result],
gleam@dict:insert(Claimed, Unique_name, true)}
end
end
),
lists:reverse(Result_rev).
-file("src/oaspec/internal/openapi/dedup.gleam", 139).
?DOC(false).
-spec dedup_enum_variants(list(binary())) -> list(binary()).
dedup_enum_variants(Enum_values) ->
Pascal_names = gleam@list:map(
Enum_values,
fun oaspec@internal@util@naming:to_pascal_case/1
),
deduplicate_strings_with_separator(Pascal_names, <<""/utf8>>).
-file("src/oaspec/internal/openapi/dedup.gleam", 146).
?DOC(false).
-spec deduplicate_strings(list(binary())) -> list(binary()).
deduplicate_strings(Names) ->
deduplicate_strings_with_separator(Names, <<"_"/utf8>>).
-file("src/oaspec/internal/openapi/dedup.gleam", 101).
?DOC(false).
-spec dedup_property_names(list(binary())) -> list(binary()).
dedup_property_names(Prop_names) ->
Snake_names = gleam@list:map(
Prop_names,
fun oaspec@internal@util@naming:to_snake_case/1
),
deduplicate_strings(Snake_names).
-file("src/oaspec/internal/openapi/dedup.gleam", 117).
?DOC(false).
-spec dedup_param_field_names(
list(oaspec@internal@openapi@spec:parameter(any()))
) -> list(binary()).
dedup_param_field_names(Params) ->
Snake_names = gleam@list:map(
Params,
fun(P) ->
oaspec@internal@util@naming:to_snake_case(erlang:element(2, P))
end
),
Reserved = [<<"body"/utf8>>,
<<"path"/utf8>>,
<<"query"/utf8>>,
<<"headers"/utf8>>],
With_reserved = lists:append(Reserved, Snake_names),
case deduplicate_strings(With_reserved) of
[_, _, _, _ | Rest] ->
Rest;
_ ->
[]
end.
-file("src/oaspec/internal/openapi/dedup.gleam", 53).
?DOC(false).
-spec dedup_schema_object(oaspec@internal@openapi@schema:schema_object()) -> oaspec@internal@openapi@schema:schema_object().
dedup_schema_object(Schema_obj) ->
case Schema_obj of
{object_schema, _, Properties, _, Additional_properties, _, _} = Obj ->
New_props = begin
_pipe = maps:to_list(Properties),
_pipe@1 = gleam@list:map(
_pipe,
fun(Entry) ->
{Name, Prop_ref} = Entry,
{Name, dedup_schema_ref(Prop_ref)}
end
),
maps:from_list(_pipe@1)
end,
{object_schema,
erlang:element(2, Obj),
New_props,
erlang:element(4, Obj),
case Additional_properties of
{typed, Ap} ->
{typed, dedup_schema_ref(Ap)};
forbidden ->
forbidden;
untyped ->
untyped;
unspecified ->
unspecified
end,
erlang:element(6, Obj),
erlang:element(7, Obj)};
{one_of_schema, Metadata, Schemas, Discriminator} ->
{one_of_schema,
Metadata,
gleam@list:map(Schemas, fun dedup_schema_ref/1),
Discriminator};
{any_of_schema, Metadata@1, Schemas@1, Discriminator@1} ->
{any_of_schema,
Metadata@1,
gleam@list:map(Schemas@1, fun dedup_schema_ref/1),
Discriminator@1};
_ ->
Schema_obj
end.
-file("src/oaspec/internal/openapi/dedup.gleam", 46).
?DOC(false).
-spec dedup_schema_ref(oaspec@internal@openapi@schema:schema_ref()) -> oaspec@internal@openapi@schema:schema_ref().
dedup_schema_ref(Schema_ref) ->
case Schema_ref of
{reference, _, _} ->
Schema_ref;
{inline, Schema_obj} ->
{inline, dedup_schema_object(Schema_obj)}
end.
-file("src/oaspec/internal/openapi/dedup.gleam", 27).
?DOC(false).
-spec dedup_schemas(oaspec@internal@openapi@spec:open_api_spec(JCB)) -> oaspec@internal@openapi@spec:open_api_spec(JCB).
dedup_schemas(Spec) ->
case erlang:element(5, Spec) of
none ->
Spec;
{some, Components} ->
New_schemas = begin
_pipe = maps:to_list(erlang:element(2, Components)),
_pipe@1 = gleam@list:map(
_pipe,
fun(Entry) ->
{Name, Schema_ref} = Entry,
{Name, dedup_schema_ref(Schema_ref)}
end
),
maps:from_list(_pipe@1)
end,
{open_api_spec,
erlang:element(2, Spec),
erlang:element(3, Spec),
erlang:element(4, Spec),
{some,
{components,
New_schemas,
erlang:element(3, Components),
erlang:element(4, Components),
erlang:element(5, Components),
erlang:element(6, Components),
erlang:element(7, Components),
erlang:element(8, Components),
erlang:element(9, Components),
erlang:element(10, Components),
erlang:element(11, Components)}},
erlang:element(6, Spec),
erlang:element(7, Spec),
erlang:element(8, Spec),
erlang:element(9, Spec),
erlang:element(10, Spec),
erlang:element(11, Spec)}
end.
-file("src/oaspec/internal/openapi/dedup.gleam", 21).
?DOC(false).
-spec dedup(oaspec@internal@openapi@spec:open_api_spec(JBY)) -> oaspec@internal@openapi@spec:open_api_spec(JBY).
dedup(Spec) ->
_pipe = Spec,
dedup_schemas(_pipe).