objcopy

include/ling_code.hrl

@@ -0,0 +1,21 @@
+%%
+%%
+%%
+
+-record(m, {
+	mod_name,
+	code = [],
+	atoms = [],
+	exports = [],
+	imports = [],
+	lambdas = [],
+	literals = [],
+	strings = <<>>,
+	attrs,
+	compile_info,
+	line_info,
+	abst_code,
+	catches = []
+}).
+
+%%EOF

src/ling/bfd_objcopy.erl

@@ -0,0 +1,36 @@
+-module(bfd_objcopy).
+-description("Embed binaries into object files").
+-author('Vladimir Kirillov').
+-compile(export_all).
+
+blob_to_src(TargetFile, SymPrefix, Blob) when is_list(Blob) orelse is_binary(Blob) ->
+	file:write_file(TargetFile, binary_to_c_iolist(SymPrefix, Blob)).
+
+binary_to_c_iolist(Sym, Blob) ->
+	Size = integer_to_list(size(Blob)),
+
+	P1 = ["const char ", Sym, "_start[] = {\n"],
+	Chars = [ case is_ascii(C) of
+				true -> [$ , $', C, $'];
+				false when C < 16 -> [$0, $x, $0, integer_to_list(C, 16)];
+				false -> [$0, $x, integer_to_list(C, 16)]
+			  end || C <- binary_to_list(Blob) ],
+	Intercalated = array_format(Chars),
+
+	P2 = ["const unsigned long ", Sym, "_size = ", Size, ";\n"],
+	P3 = ["const char *", Sym, "_end = (char *)&", Sym, "_start + ", Size, ";\n"],
+	[ P1, Intercalated, "\n};\n", P2, P3 ].
+
+is_ascii(C) when C >= $0, C =< $9 -> true;
+is_ascii(C) when C >= $a, C =< $z -> true;
+is_ascii(C) when C >= $A, C =< $Z -> true;
+is_ascii(_) -> false.
+
+array_format(Xs) -> ["", intersperse(<<", ">>, <<"\n">>, 10, Xs)].
+intersperse(Sep, GroupSep, Count, Xs) -> xsperse(Sep, GroupSep, Count, Xs, 0).
+
+xsperse(_,_, _, [],_)-> [];
+xsperse(_,_, _, [X], _)-> [X];
+xsperse(Sep, GS, Count, [X|Xs], Count) -> [X, [Sep, GS]|xsperse(Sep, GS, Count, Xs, 0)];
+xsperse(Sep, GS, Count, [X|Xs], N) -> [X, Sep|xsperse(Sep, GS, Count, Xs, N + 1)].
+