Changeset 96 for trunk/src/modules.erl

Timestamp:

08/19/10 09:26:03 (21 months ago)

Author:

dom

Message:

Continue work on include files

File:

• trunk/src/modules.erl (modified) (2 diffs)

trunk/src/modules.erl

@@ -10 +10 @@
 -export ([module_name/1]).
 -export ([locate/2]).
+-export ([includes/1]).
 
 to_binary (File_name) ->
@@ -52 +53 @@
 locate_line (_, _, []) ->
     unknown.
+
+includes (File) ->
+    includes_from_forms (epp_dodger: parse_file (File)).
+
+includes_from_forms ({error, _}=E) ->
+    E;
+includes_from_forms ({ok, Forms}) ->
+    Attributes = [A || {tree, attribute, _, A} <- Forms],
+    Includes = [I || {attribute, {atom, _, include}, [I]} <- Attributes],
+    [F || {string, _, F} <- Includes].