Tighten up packbeam_api

This change set tightens up the packbeam API to expose just enough information about AVM files as is needed without exposing internal implementation details. Signed-off-by: Fred Dushin <[email protected]>
atomvm · Oct 20, 2023 · 56fcf44 · 56fcf44
1 parent 1874698
commit 56fcf44
Show file tree

Hide file tree

Showing 4 changed files with 120 additions and 79 deletions.
diff --git a/src/packbeam.erl b/src/packbeam.erl
@@ -272,9 +272,9 @@ print_modules(Modules, Format) ->
 print_module(ParsedFile, undefined) ->
     print_module(ParsedFile, "default");
 print_module(ParsedFile, "default") ->
-    ModuleName = proplists:get_value(module_name, ParsedFile),
-    Flags = proplists:get_value(flags, ParsedFile),
-    Data = proplists:get_value(data, ParsedFile),
+    ModuleName = packbeam_api:get_module_name(ParsedFile),
+    Flags = packbeam_api:get_flags(ParsedFile),
+    Data = packbeam_api:get_element_data(ParsedFile),
     io:format(
         "~s~s [~p]~n", [
             ModuleName,
@@ -286,8 +286,8 @@ print_module(ParsedFile, "default") ->
         ]
     );
 print_module(ParsedFile, "csv") ->
-    ModuleName = proplists:get_value(module_name, ParsedFile),
-    Data = proplists:get_value(data, ParsedFile),
+    ModuleName = packbeam_api:get_module_name(ParsedFile),
+    Data = packbeam_api:get_element_data(ParsedFile),
     io:format(
         "~s,~p,~p,~p~n", [
             ModuleName,
@@ -297,7 +297,7 @@ print_module(ParsedFile, "csv") ->
         ]
     );
 print_module(ParsedFile, "bare") ->
-    ModuleName = proplists:get_value(module_name, ParsedFile),
+    ModuleName = packbeam_api:get_module_name(ParsedFile),
     io:format(
         "~s~n", [
             ModuleName