erlang: Rename language from `erl'.

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

diff --git a/Makefile b/Makefile
index 4f41be2927bb7a8c2ce5b65cc92ac20010a94f03..fea059808813dd9c0b218d808599dc9a198ade7b 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) $<
 
 .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';                        \
        $(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 $@
 
        } >$@.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 77239bdec5820e390278495a1f7ea06c911c8de7..5854cb85af81fd0c39d8278d4b16470f5c436d7f 100644 (file)
--- a/erl-fringe.erl
+++ b/erlang-fringe.erl
@@ -2,7 +2,7 @@
 %%%
 %%% Erlang implementation of a `same-fringe' solver.
 
 %%%
 %%% Erlang implementation of a `same-fringe' solver.
 

--module('erl-fringe').
+-module('erlang-fringe').

 -export([main/0, tree_fringe/1]).
 
 %%%--------------------------------------------------------------------------
 -export([main/0, tree_fringe/1]).
 
 %%%--------------------------------------------------------------------------


@@ -106,12 +106,12 @@ main() ->
        case init:get_plain_arguments() of
            [S] ->
                T = parse_tree(S),
        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] ->
                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")
                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} ->
        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().
            init:stop(1)
     end,
     init:stop().