Changeset 61 for trunk

Timestamp:

07/13/09 04:10:47 (3 years ago)

Author:

dom

Message:

Initial version of compiler module/process

Location:

trunk

Files:

• fix/eg_compile_error.erl (added)
• fix/eg_compile_warning.erl (added)
• src/compiler.erl (added)
• src/compiler_test.erl (added)
• src/modules.erl (modified) (2 diffs)
• src/shells_tests.erl (modified) (1 diff)

trunk/src/modules.erl

@@ -7 +7 @@
 -export ([to_file_name/2]).
 -export ([forms_to_binary/1]).
+-export ([compile/1]).
 
 to_binary (File_name) ->
-    compile (fun compile: file/2, File_name).
+    {ok, _, Binary, _} = compile (fun compile: file/2, File_name),
+    Binary.
 
 to_file_name (Module, Directory) ->
@@ -16 +18 @@
     
 forms_to_binary (Forms) ->
-    compile (fun compile: forms/2, Forms).
+    {ok, _, Binary, _} = compile (fun compile: forms/2, Forms),
+    Binary.
 
 compile (Fun, Parameter) ->
     Options = [binary, return, warn_unused_import],
-    {ok, _, Binary, _} = Fun (Parameter, Options),
-    Binary.
+    Fun (Parameter, Options).
 
+compile (File) ->
+    compile (fun compile: file/2, File).

trunk/src/shells_tests.erl

@@ -12 +12 @@
     ok = tester_test: run_all (Test_node),
     Modules = [fixtures_test, fixtures,
-               directory_watcher_test, directory_watcher],
+               directory_watcher_test, directory_watcher,
+               compiler_test, compiler, modules],
     ok = hand_send_to_tester (Modules, Test_node),
     Caller ! {Caller, done}.