Changeset 93 for trunk/src/modules.erl

Timestamp:

01/29/10 07:56:02 (2 years ago)

Author:

dom

Message:

Include directories can be given to compiler

File:

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

trunk/src/modules.erl

@@ -7 +7 @@
 -export ([to_file_name/2]).
 -export ([forms_to_binary/1]).
--export ([compile/1]).
+-export ([compile/2, compile/1]).
 -export ([module_name/1]).
 -export ([locate/2]).
 
 to_binary (File_name) ->
-    {ok, _, Binary, _} = compile (fun compile: file/2, File_name),
+    {ok, _, Binary, _} = compile (fun compile: file/2, File_name, []),
     Binary.
 
@@ -20 +20 @@
     
 forms_to_binary (Forms) ->
-    {ok, _, Binary, _} = compile (fun compile: forms/2, Forms),
+    {ok, _, Binary, _} = compile (fun compile: forms/2, Forms, []),
     Binary.
 
-compile (Fun, Parameter) ->
-    Options = [binary, return, warn_unused_import, debug_info],
+compile (Fun, Parameter, User_options) ->
+    Options = [binary, return, warn_unused_import, debug_info | User_options],
     Fun (Parameter, Options).
 
+compile (File, Options) ->
+    compile (fun compile: file/2, File, Options).
+
 compile (File) ->
-    compile (fun compile: file/2, File).
+    compile (File, []).
 
 module_name (Filename) ->