v1.0.1

Author: gogotanaka

README.md

@@ -2,16 +2,23 @@
 
 ```rb
 require 'haskell'
+
+# Invoke sandbox for executing ghc
+Haskell.invoke_sandbox!(File.expand_path('../', __FILE__))
+
 Haskell.compile %{
   add :: Integer -> Integer -> Integer
   add x y = x + y
   result = add 1 2
 }
 
 while Haskell.compiling?
-...
+  # wait for....
 end
 
 p Haskell.execute
 #=> 3
+
+# Don't forget to revoke sandbox
+Haskell.revoke_sandbox!
 ```

haskell_executing_sandbox/tmp

@@ -0,0 +1,7 @@
+module Main where
+
+add :: Integer -> Integer -> Integer
+add x y = x + y
+result = add 1 2
+
+main = do putStrLn $ show result

haskell_executing_sandbox/tmp.hi

@@ -3,45 +3,42 @@ module Haskell
   class HaskellCompileError < StandardError; end
 
   class << self
-    def invoke_sandbox!
-      file_path = File.expand_path('../', __FILE__)
-      $sandbox_path = "#{file_path}/haskell_executing_sandbox"
-      FileUtils.mkdir($sandbox_path) unless Dir.exist?($sandbox_path)
+    def invoke_sandbox!(dir_path)
+      @@sandbox_path = "#{dir_path}/haskell_executing_sandbox"
+      FileUtils.mkdir(@@sandbox_path) unless Dir.exist?(@@sandbox_path)
     end
 
     def revoke_sandbox!
-      FileUtils.rm_rf($sandbox_path)
+      FileUtils.rm_rf(@@sandbox_path)
     end
 
     def compile(hs_code)
-      FileUtils.touch("#{$sandbox_path}/COMPILING")
+      FileUtils.touch("#{@@sandbox_path}/COMPILING")
       #TODO: need inform user prefer message
       Thread.abort_on_exception = true
       Thread.new do
         begin
           executable_code = executable_code(hs_code)
           puts_notation(executable_code)
-          File.write("#{$sandbox_path}/tmp.hs", executable_code)
-          Kernel.system("ghc #{$sandbox_path}/tmp.hs")
+          File.write("#{@@sandbox_path}/tmp.hs", executable_code)
+          Kernel.system("ghc #{@@sandbox_path}/tmp.hs")
           raise HaskellCompileError unless compiled?
         ensure
-          FileUtils.rm("#{$sandbox_path}/COMPILING")
+          FileUtils.rm("#{@@sandbox_path}/COMPILING")
         end
       end
-    rescue
-      raise "Something wrong...https://github.com/Azabuhs/Ruby/issues"
     end
 
     def compiling?
-      File.exist?("#{$sandbox_path}/COMPILING")
+      File.exist?("#{@@sandbox_path}/COMPILING")
     end
 
     def compiled?
-      File.exist?("#{$sandbox_path}/tmp")
+      File.exist?("#{@@sandbox_path}/tmp")
     end
 
     def execute
-      `#{$sandbox_path}/tmp`.gsub(/\n\z/, '')
+      `#{@@sandbox_path}/tmp`.gsub(/\n\z/, '')
     end
 
   private

haskell_executing_sandbox/tmp.hs

@@ -1,3 +1,3 @@
 module Haskell
-  VERSION = "1.0.0"
+  VERSION = "1.0.1"
 end

lib/haskell.rb

@@ -27,15 +27,15 @@ def test_main
 
   private
     def assert_equal_execute(str, &block)
-      Haskell.invoke_sandbox!
+      Haskell.invoke_sandbox!(File.expand_path('../', __FILE__))
       Haskell.compile(block.call)
       nil while Haskell.compiling?
       assert_equal str, Haskell.execute
       Haskell.revoke_sandbox!
     end
 
     def assert_raise_compile_error(&block)
-      Haskell.invoke_sandbox!
+      Haskell.invoke_sandbox!(File.expand_path('../', __FILE__))
       Haskell.compile(block.call)
       nil while Haskell.compiling?
     # TODO: more prefer test