From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 5 Jul 2010 22:23:43 +0000 (+0100)
Subject: erlang: Rename language from `erl'.
X-Git-Url: https://git.distorted.org.uk/~mdw/fringe/commitdiff_plain/3f23c90e9812b8af483b7d6068c8093e77689d5d

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
--- 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
--- 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().