aboutsummaryrefslogtreecommitdiffstats
path: root/lib/dialyzer/test/small_tests_SUITE_data/src/fun_app.erl
diff options
context:
space:
mode:
authorStavros Aronis <[email protected]>2011-04-02 18:57:42 +0300
committerHenrik Nord <[email protected]>2011-05-04 15:06:15 +0200
commitca4633fd683527097451ca1398c90c87bb5c14fc (patch)
tree3d8e18c9becd4feb7d3ceb1eed24bdce2ef69dd6 /lib/dialyzer/test/small_tests_SUITE_data/src/fun_app.erl
parentbc619f0cbf9555df6dfc44a499f0cd9cee8bd1be (diff)
downloadotp-ca4633fd683527097451ca1398c90c87bb5c14fc.tar.gz
otp-ca4633fd683527097451ca1398c90c87bb5c14fc.tar.bz2
otp-ca4633fd683527097451ca1398c90c87bb5c14fc.zip
Rename suite data directories
Diffstat (limited to 'lib/dialyzer/test/small_tests_SUITE_data/src/fun_app.erl')
-rw-r--r--lib/dialyzer/test/small_tests_SUITE_data/src/fun_app.erl42
1 files changed, 0 insertions, 42 deletions
diff --git a/lib/dialyzer/test/small_tests_SUITE_data/src/fun_app.erl b/lib/dialyzer/test/small_tests_SUITE_data/src/fun_app.erl
deleted file mode 100644
index 605b0799d1..0000000000
--- a/lib/dialyzer/test/small_tests_SUITE_data/src/fun_app.erl
+++ /dev/null
@@ -1,42 +0,0 @@
-%% This is taken from the code of distel.
-
--module(fun_app).
--export([html_index/2]). % , lines/3, curry/2]).
-
-html_index(file,Dir) ->
- fold_file(curry(fun lines/3,Dir),[],filename:join([Dir,"doc","man_index.html"])).
-
-fold_file(Fun,Acc0,File) ->
- {ok, FD} = file:open(File, [read]),
- Acc = fold_file_lines(FD,Fun,Acc0),
- file:close(FD),
- Acc.
-
-fold_file_lines(FD,Fun,Acc) ->
- case io:get_line(FD, "") of
- eof -> Acc;
- Line -> fold_file_lines(FD,Fun,Fun(trim_nl(Line),Acc))
- end.
-
-trim_nl(Str) -> lists:reverse(tl(lists:reverse(Str))).
-
-lines(Line,_,Dir) ->
- case string:tokens(Line, "<> \"") of
- ["TD", "A", "HREF=", "../"++Href, M|_] ->
- case filename:basename(Href, ".html") of
- "index" -> ok;
- M -> e_set({file,M}, filename:join([Dir,Href]))
- end;
- _ -> ok
- end.
-
-e_set(Key,Val) -> ets:insert(?MODULE, {Key,Val}).
-
-curry(F, Arg) ->
- case erlang:fun_info(F,arity) of
- {_,1} -> fun() -> F(Arg) end;
- {_,2} -> fun(A) -> F(A,Arg) end;
- {_,3} -> fun(A,B) -> F(A,B,Arg) end;
- {_,4} -> fun(A,B,C) -> F(A,B,C,Arg) end
- end.
-