1 files changed, 25 insertions, 0 deletions
diff --git a/lib/syntax_tools/examples/test.erl b/lib/syntax_tools/examples/test.erl
new file mode 100644
index 0000000000..087c49ed4c
--- /dev/null
+++ b/lib/syntax_tools/examples/test.erl
@@ -0,0 +1,25 @@
+%%
+%% This is a test file
+%%
+
+-module(test).
+
+-export([nrev/1]).
+
+%% Just a naive reverse function in order
+%% to get a code example with some comments.
+
+nrev([X | Xs]) ->
+    append(X, nrev(Xs));  % Quadratic behaviour
+nrev([]) ->
+    %% The trivial case:
+    [].
+
+  %% We need `append' as a subroutine:
+
+append(Y, [X | Xs]) ->
+    [X | append(Y, Xs)];    % Simple, innit?
+append(Y, []) ->
+    [Y].    % Done.
+
+%% ---- end of file ----