QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Update rename when a new rename comes up

Browse Source
This commit is contained in:
Gaith Hallak 2023-05-26 16:50:35 +03:00
parent 9b9853cbfd
commit 271870b2a4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/aeso_ast_to_fcode.erl
View File

@ -2164,13 +2164,18 @@ rename_spat(Ren, {assign, X, P}) ->
-spec rename_split(rename(), fsplit()) -> fsplit(). -spec rename_split(rename(), fsplit()) -> fsplit().
rename_split(Ren, {split, Type, X, Cases}) -> rename_split(Ren, {split, Type, X, Cases}) ->
{split, Type, rename_var(Ren, X), [rename_case(Ren, C) || C <- Cases]}; {split, Type, rename_var(Ren, X), [rename_case(Ren, C) || C <- Cases]};
rename_split(Ren, {nosplit, Rens, E}) -> {nosplit, Rens, rename(Ren, E)}. rename_split(Ren, {nosplit, Rens, E}) ->
{nosplit, update_rename(Rens, Ren), rename(Ren, E)}.
-spec rename_case(rename(), fcase()) -> fcase(). -spec rename_case(rename(), fcase()) -> fcase().
rename_case(Ren, {'case', Pat, Split}) -> rename_case(Ren, {'case', Pat, Split}) ->
{Pat1, Ren1} = rename_spat(Ren, Pat), {Pat1, Ren1} = rename_spat(Ren, Pat),
{'case', Pat1, rename_split(Ren1, Split)}. {'case', Pat1, rename_split(Ren1, Split)}.
-spec update_rename(rename(), rename()) -> rename().
update_rename(OldRen, NewRen) ->
[{Name, proplists:get_value(Rename, NewRen, Rename)} || {Name, Rename} <- OldRen].
%% -- Records -- %% -- Records --
-spec field_index(aeso_syntax:typedef(), aeso_syntax:name()) -> integer(). -spec field_index(aeso_syntax:typedef(), aeso_syntax:name()) -> integer().