diff options
Diffstat (limited to 'lib/dialyzer/test/opaque_tests_SUITE_data/src/wings/wings_shape.erl')
-rw-r--r-- | lib/dialyzer/test/opaque_tests_SUITE_data/src/wings/wings_shape.erl | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/lib/dialyzer/test/opaque_tests_SUITE_data/src/wings/wings_shape.erl b/lib/dialyzer/test/opaque_tests_SUITE_data/src/wings/wings_shape.erl deleted file mode 100644 index 0df8ca68eb..0000000000 --- a/lib/dialyzer/test/opaque_tests_SUITE_data/src/wings/wings_shape.erl +++ /dev/null @@ -1,69 +0,0 @@ -%% -%% wings_shape.erl -- -%% -%% Utilities for shape records. -%% - --module(wings_shape). - --export([insert/3]). - --include("wings.hrl"). - -%%% -%%% Exported functions. -%%% - -%% new(We, Suffix, St0) -> St. -%% Suffix = cut | clone | copy | extract | sep -%% -%% Create a new object based on an old object. The name -%% will be created from the old name (with digits and known -%% suffixes stripped) with the given Suffix and a number -%% appended. -insert(#we{name=OldName}=We0, Suffix, #st{shapes=Shapes0,onext=Oid}=St) -> - Name = new_name(OldName, Suffix, Oid), - We = We0#we{id=Oid,name=Name}, - Shapes = gb_trees:insert(Oid, We, Shapes0), - St#st{shapes=Shapes,onext=Oid+1}. - -%%% -%%% Local functions follow. -%%% - -new_name(OldName, Suffix0, Id) -> - Suffix = suffix(Suffix0), - Base = base(lists:reverse(OldName)), - lists:reverse(Base, "_" ++ Suffix ++ integer_to_list(Id)). - -%% Note: Filename suffixes are intentionally not translated. -%% If we are to translate them in the future, base/1 below -%% must be updated to strip suffixes (both for the current language -%% and for English). - -suffix(cut) -> "cut"; -suffix(clone) -> "clone"; -suffix(copy) -> "copy"; -suffix(extract) -> "extract"; -suffix(mirror) -> "mirror"; -suffix(sep) -> "sep". - -%% base_1(ReversedName) -> ReversedBaseName -%% Given an object name, strip digits and known suffixes to -%% create a base name. Returns the unchanged name if -%% no known suffix could be stripped. - -base(OldName) -> - case base_1(OldName) of - error -> OldName; - Base -> Base - end. - -base_1([H|T]) when $0 =< H, H =< $9 -> base_1(T); -base_1("tuc_"++Base) -> Base; %"_cut" -base_1("enolc_"++Base) -> Base; %"_clone" -base_1("ypoc_"++Base) -> Base; %"_copy" -base_1("tcartxe_"++Base) -> Base; %"_extract" -base_1("rorrim_"++Base) -> Base; %"_mirror" -base_1("pes_"++Base) -> Base; %"_sep" -base_1(_Base) -> error. |