File strip_beam.escript of Package rpm-build-erlang

Overview Repositories Revisions Requests Users Attributes Meta

File strip_beam.escript of Package rpm-build-erlang

-mode(compile).

main(Beams) ->
    lists:foreach(fun(F) ->
                      case beam_lib:all_chunks(F) of
                          {ok, _, Cs} ->
                              case lists:foldr(fun({"Abst", _}, {_, A}) -> {true, A};
                                                  ({"LocT", _}, {_, A}) -> {true, A};
                                                  ({"Dbgi", _}, {_, A}) -> {true, A};
                                                  ({"CInf", _}, {_, A}) -> {true, A};
                                                  (C, {Fl, A}) -> {Fl, [C|A]}
                                               end, {false, []}, Cs) of
                                  {true, S} ->
                                      {ok, M} = beam_lib:build_module(S),
                                      file:write_file(F, M, [raw]);
                                  _ -> ok
                              end;
                          _ -> ok
                      end
                  end, Beams).

Places

File strip_beam.escript of Package rpm-build-erlang

Places