Extract termcap

Makefile

@@ -1,18 +0,0 @@
-TERMCAP_FILE=http://code.metager.de/source/raw/OpenBSD/src/share/termtypes/termtypes.master
-
-compile:
-	rebar3 compile
-
-src/termcap.erl: termtypes.master.clean
-	cp termcap.erl src/termcap.erl
-	./mk-termcap.escript termtypes.master.clean  >> src/termcap.erl
-
-clean:
-	[ -f termtypes.master ] && rm termtypes.master || true
-	[ -f termtypes.master.clean ] && rm termtypes.master.clean || true
-	
-termtypes.master.clean: termtypes.master
-	cat termtypes.master | grep -v '^#' | grep -v '^\s*$$' > termtypes.master.clean
-
-termtypes.master:
-	curl -O $(TERMCAP_FILE)

mk-termcap.escript

@@ -1,93 +0,0 @@
-#!/usr/bin/env escript
-main([In]) ->
-    {ok, File} = file:open(In, [read]),
-    case io:get_line(File, "") of
-        eof ->
-            file:close(File);
-        Cap ->
-            read_lines(File, {parse_name(Cap), ""})
-    end.
-
-read_lines(File, {H, Acc}) ->
-    case io:get_line(File, "") of
-        eof  ->
-            file:close(File),
-            print_term(H, parse_caps(Acc)),
-            io:format("cap_(_) -> [].\n");
-        " " ++ Rest ->
-            case Acc of
-                "" ->
-                    read_lines(File, {H, remove_newline(strip_ws(Rest))});
-                _ ->
-                    read_lines(File, {H, [Acc, " ", remove_newline(strip_ws(Rest))]})
-            end;
-        "\t" ++ Rest ->
-            case Acc of
-                "" ->
-                    read_lines(File, {H, remove_newline(strip_ws(Rest))});
-                _ ->
-                    read_lines(File, {H, [Acc, " ", remove_newline(strip_ws(Rest))]})
-            end;
-        Cap ->
-            print_term(H, parse_caps(Acc)),
-            read_lines(File, {parse_name(Cap), ""})
-    end.
-
-print_term({Term, _Desc, _Aliases}, Caps) ->
-    io:format("cap_(~p) -> ~p;~n", [Term, Caps]).
-
-
-remove_newline(S) ->
-    remove_newline(S, []).
-
-remove_newline("\n", Acc) ->
-    lists:reverse(Acc);
-
-remove_newline("", Acc) ->
-    lists:reverse(Acc);
-remove_newline([C | R], Acc) ->
-    remove_newline(R, [C | Acc]).
-
-strip_ws([$\s | R]) ->
-    strip_ws(R);
-strip_ws([$\t | R]) ->
-    strip_ws(R);
-strip_ws(R) ->
-    R.
-remove_colon(S) ->
-    remove_colon(S, []).
-
-remove_colon(", \n", Acc) ->
-    lists:reverse(Acc);
-remove_colon(",\n", Acc) ->
-    lists:reverse(Acc);
-remove_colon("\n", Acc) ->
-    lists:reverse(Acc);
-remove_colon("", Acc) ->
-    lists:reverse(Acc);
-remove_colon([C | R], Acc) ->
-    remove_colon(R, [C | Acc]).
-
-
-parse_name(S) ->
-    [Term | Rest] = re:split(remove_colon(S), "\\|", [{return,list}]),
-    case lists:reverse(Rest) of
-        [] ->
-            {Term, [], []};
-        [Title | Aliases] ->
-            {Term, Title, Aliases}
-    end.
-
-parse_caps(S) ->
-    Caps = re:split(S, ",[\\s\\t]*", [{return,list}]),
-    [parse_cap(C, []) || C <- Caps, C =/= ""].
-
-parse_cap([], Name) ->
-    lists:reverse(Name);
-parse_cap([$= | V], Name) ->
-    {lists:reverse(Name), V};
-parse_cap([$# | V], Name) ->
-    {lists:reverse(Name), V};
-parse_cap([C | R], Name) ->
-    parse_cap(R, [ C | Name]).
-

rebar.config

@@ -1,2 +1,2 @@
 {erl_opts, [debug_info]}.
-{deps, []}.
+{deps, [{termcap, "0.1.0"}]}.

rebar.lock

@@ -1 +1 @@
-[].
+[{<<"termcap">>,{pkg,<<"termcap">>,<<"0.1.0">>},0}].

src/cf.app.src

@@ -2,7 +2,7 @@
              [{description,"Terminal colour helper"},
               {vsn,"0.2.0"},
               {registered,[]},
-              {applications,[kernel,stdlib]},
+              {applications,[kernel,stdlib,termcap]},
               {env,[]},
               {modules,[]},
               {maintainers,["Heinz N. Gies <heinz@project-fifo.net>"]},

termcap.erl

@@ -1,14 +0,0 @@
--module(termcap).
-
--export([cap/1]).
-
-cap(Term) ->
-    resolve(cap_(Term)).
-
-resolve([]) ->
-    [];
-resolve([{"use", Cap1} | R]) ->
-    cap(Cap1) ++ resolve(R);
-resolve([C | R]) ->
-    [C | resolve(R)].
-