roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-08-17 06:41:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

cleanup refcount generation for record fields

Browse Source
This commit is contained in:
Brendan Hansknecht 2024-07-13 09:48:59 -07:00
parent b1eb1e2971
commit 9110457480
No known key found for this signature in database
GPG Key ID: 0EA784685083E75B
1 changed files with 18 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
crates/glue/src/RustGlue.roc
View File

@ -2121,47 +2121,25 @@ generateRocRefcounted = \buf, types, type, escapedName ->
Str.concat buf "roc_refcounted_noop_impl!($(escapedName));\n\n"
generateRocRefcountedNamedFields = \types, fields, mode, wrapper ->
fieldName = \name ->
escapedName = escapeKW name
when wrapper is
Struct -> escapedName
Tag -> "f$(escapedName)"
methodName =
when mode is
Inc -> "inc"
Dec -> "dec"
walker =
when (wrapper, mode) is
(Struct, Inc) ->
\accum, { name: fieldName, id } ->
escapedFieldName = escapeKW fieldName
if containsRefcounted types (Types.shape types id) then
Str.concat
accum
"$(indent) self.$(escapedFieldName).inc();\n"
else
accum
(Struct, Dec) ->
\accum, { name: fieldName, id } ->
escapedFieldName = escapeKW fieldName
if containsRefcounted types (Types.shape types id) then
Str.concat
accum
"$(indent) self.$(escapedFieldName).dec();\n"
else
accum
(Tag, Inc) ->
\accum, { name: fieldName, id } ->
escapedFieldName = escapeKW fieldName
if containsRefcounted types (Types.shape types id) then
Str.concat
accum
"$(indent) self.f$(escapedFieldName).inc();\n"
else
accum
(Tag, Dec) ->
\accum, { name: fieldName, id } ->
escapedFieldName = escapeKW fieldName
if containsRefcounted types (Types.shape types id) then
Str.concat
accum
"$(indent) self.f$(escapedFieldName).dec();\n"
else
accum
\accum, { name, id } ->
if containsRefcounted types (Types.shape types id) then
Str.concat
accum
"$(indent) self.$(fieldName name).$(methodName)();\n"
else
accum
List.walk fields "" walker