diff options
| author | Felix Lange <fjl@twurst.com> | 2011-10-14 05:45:42 +0200 |
|---|---|---|
| committer | Felix Lange <fjl@twurst.com> | 2011-10-14 05:45:42 +0200 |
| commit | bd5145368593e09460d4461256ee4f934b2ebf26 (patch) | |
| tree | 471852782d61d64bede27d67552eb79af0a598aa /src/edit_transform.erl | |
| parent | 90640c1aed302fd83a500bb9ccdfb6cf7b481112 (diff) | |
| download | ermacs-fork-bd5145368593e09460d4461256ee4f934b2ebf26.tar.gz | |
remove cruft
cruft includes:
- module header comments (yikes..)
- author attributes (sorry luke)
- old guard tests
Diffstat (limited to 'src/edit_transform.erl')
| -rw-r--r-- | src/edit_transform.erl | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/src/edit_transform.erl b/src/edit_transform.erl index 52bd294..34c3043 100644 --- a/src/edit_transform.erl +++ b/src/edit_transform.erl @@ -1,16 +1,9 @@ -%%%---------------------------------------------------------------------- -%%% File : edit_transform.erl -%%% Author : Luke Gorrie <luke@bluetail.com> -%%% Purpose : Parse transform module for editor command modules -%%% Created : 25 Oct 2000 by Luke Gorrie <luke@bluetail.com> -%%%---------------------------------------------------------------------- - +%% Parse transform module for editor command modules +% % -command({cmd1, [{name1, prompt1}], doc1}). % -command({cmd2, []}). -module(edit_transform). --author('luke@bluetail.com'). - -export([parse_transform/2]). %% Collect "command" attributes to generate a command_info function. These @@ -22,7 +15,7 @@ %% %% command_info() returns [{Fun, [Arg], DocString}] %% -parse_transform(Form, Opts) -> +parse_transform(Form, _Opts) -> {Head, Rest} = split(Form), {Body, EOF} = splitlast(Rest), Line = element(2, hd(Body)), @@ -56,7 +49,7 @@ scan_and_parse(Source, Line) -> %% 'module' attribute, Body is the rest. split(Form) -> split(Form, []). -split([X = {attribute, Line, module, Module}|T], Acc) -> +split([X = {attribute, _Line, module, _Module}|T], Acc) -> {lists:reverse([X|Acc]), T}; split([H|T], Acc) -> split(T, [H|Acc]). |