add support for include statements

Author: grogers

crossref.erl

@@ -2,18 +2,9 @@
 
 -export([build/3]).
 
--define(CSCOPE_VERSION, 15).
-
-%-define(DEFINEBEGIN, $\#).
-%-define(DEFINEEND, $\)).
--define(FUNCTIONCALL, $`).
--define(FUNCTIONDEFBEGIN, $\$).
--define(FUNCTIONDEFEND, $}).
-%-define(INCLUDE, $~).
--define(NEWFILE, $@).
-%-define(RECORDDEF, $s).
-
+-include("crossref.hrl").
 
+-define(CSCOPE_VERSION, 15).
 
 build(SrcDirs, IncDirs, SrcFiles) ->
     CscopeDb = "cscope.out",
@@ -72,7 +63,7 @@ build_crossref_of_file(Filename, AbsForms) ->
 %% Outputs a deep list suitable for writing to the crossref file
 form_to_crossref(Filename, Form) ->
     case erl_syntax:type(Form) of
-        attribute -> [];  %% @fixme ignore for now
+        attribute -> attribute_to_crossref(Form);
         function -> function_to_crossref(Form);
 
         error_marker ->
@@ -89,6 +80,18 @@ form_to_crossref(Filename, Form) ->
             []
     end.
 
+attribute_to_crossref(Attribute) ->
+    case erl_syntax:atom_value(erl_syntax:attribute_name(Attribute)) of
+        include ->
+            StartStr = io_lib:format("~b -include(~n", [erl_syntax:get_pos(Attribute)]),
+            [File] = erl_syntax:attribute_arguments(Attribute),
+            IncludeStr = io_lib:format("\t~c\"~s~n", [?INCLUDE, erl_syntax:string_value(File)]),
+            EndStr = "\").\n",
+            [StartStr, IncludeStr, EndStr];
+
+        _ -> []  % ignore unused attributes
+    end.
+
 function_to_crossref(Function) ->
     StartStr = io_lib:format("~b ~n", [erl_syntax:get_pos(Function)]),
     FunctionName = erl_syntax:atom_name(erl_syntax:function_name(Function)),

crossref.hrl

@@ -0,0 +1,8 @@
+-define(DEFINEBEGIN, $\#).
+-define(DEFINEEND, $\)).
+-define(FUNCTIONCALL, $`).
+-define(FUNCTIONDEFBEGIN, $\$).
+-define(FUNCTIONDEFEND, $}).
+-define(INCLUDE, $~).
+-define(NEWFILE, $@).
+-define(RECORDDEF, $s).

erlscope.erl

@@ -1,6 +1,5 @@
 -module(erlscope).
 -export([main/0]).
--compile([export_all]).
 
 main() ->
     Filenames = get_files("cscope.files"),
@@ -14,7 +13,7 @@ get_files(Filename) ->
 
 read_filenames_from(File, Acc) ->
     case file:read_line(File) of
-        eof -> Acc;
+        eof -> lists:reverse(Acc);
         {ok, Data} ->
             read_filenames_from(File, [string:strip(Data, both, $\n) | Acc])
     end.