erlang: Rename language from `erl'.

No idea why I named it like that in the first place.

diff --git a/Makefile b/Makefile
index 4f41be2..fea0598 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -195,12 +195,12 @@ CLEANFILES                += *.beam erl_crash.dump
 .SUFFIXES: .erl .beam
 .erl.beam:; $(call v_echo,ERLC)$(ERLC) $(ERLCFLAGS) $<
 
-LANGS                  += erl
-TARGETS                        += erl-fringe.beam
-SOURCES                        += erl-fringe.erl
-erl-fringe:
+LANGS                  += erlang
+TARGETS                        += erlang-fringe.beam
+SOURCES                        += erlang-fringe.erl
+erlang-fringe:
        $(call v_echo,GENSH){ echo '#! /bin/sh';                        \
-         echo 'exec erl -pa . -noshell -run erl-fringe main -extra "$$@"'; \
+         echo 'exec erl -pa . -noshell -run erlang-fringe main -extra "$$@"'; \
        } >$@.new
        $(V_HIDE)chmod +x $@.new && mv $@.new $@
 

diff --git a/erl-fringe.erl b/erlang-fringe.erl
similarity index 92%
rename from erl-fringe.erl
rename to erlang-fringe.erl
index 77239bd..5854cb8 100644 (file)
--- a/erl-fringe.erl
+++ b/erlang-fringe.erl
@@ -2,7 +2,7 @@
 %%%
 %%% Erlang implementation of a `same-fringe' solver.
 
--module('erl-fringe').
+-module('erlang-fringe').
 -export([main/0, tree_fringe/1]).
 
 %%%--------------------------------------------------------------------------
@@ -106,12 +106,12 @@ main() ->
        case init:get_plain_arguments() of
            [S] ->
                T = parse_tree(S),
-               I = iterator('erl-fringe', tree_fringe, [T]),
+               I = iterator('erlang-fringe', tree_fringe, [T]),
                map_iterator(I, fun(X) -> io:put_chars([X]) end),
                io:nl();
            [S, SS] ->
-               I = iterator('erl-fringe', tree_fringe, [parse_tree(S)]),
-               J = iterator('erl-fringe', tree_fringe, [parse_tree(SS)]),
+               I = iterator('erlang-fringe', tree_fringe, [parse_tree(S)]),
+               J = iterator('erlang-fringe', tree_fringe, [parse_tree(SS)]),
                case iterators_equal(I, J) of
                    true -> io:format("match~n");
                    _ -> io:format("no match~n")
@@ -121,7 +121,7 @@ main() ->
        end
     catch
        {simple_error, M} ->
-           io:format(standard_error, "erl-fringe: ~s~n", [M]),
+           io:format(standard_error, "erlang-fringe: ~s~n", [M]),
            init:stop(1)
     end,
     init:stop().