most 0.7.3

data/lib/most/tasks/general/win/lua.rb

@@ -0,0 +1,75 @@
+#    Most - Modular Open Software Tester.
+#    Copyright (C) 2009  Dmitrii Toksaitov
+#
+#    This file is part of Most.
+#
+#    Most is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    Most is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Most. If not, see <http://www.gnu.org/licenses/>.
+
+require 'rake/clean'
+
+namespace :win do
+  namespace :lua do
+
+    task :prepare do
+      lua_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'lua')
+        lua_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless lua_home.nil?
+        clibs_path = File.join(lua_home, 'clibs')
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{lua_home};#{clibs_path};#{ENV['PATH']}"
+
+        ENV['LUA_DEV']   = lua_home
+        ENV['LUA_PATH']  = ';;%LUA_DEV%\lua\?.luac'
+        ENV['LUA_MPATH'] = '?.mlua;%LUA_DEV%\lua\metalua\?.mlua'
+      end
+    end
+
+    task :compile, :source, :executable, :needs => [:prepare] do |task, args|
+      compilation_command = %{luac -o #{args.executable} #{args.source}}
+
+      service = Most::SERVICES[:open4]
+      service.popen4(compilation_command) do |stdin, stdout, stderr, pid|
+        $stdout.puts(stdout.read())
+        $stderr.puts(stderr.read())
+      end
+    end
+
+    task :run, :executable, :input do |task, args|
+      args.with_defaults(:input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(%{lua #{args.executable}}) do |stdin, stdout, stderr, pid|
+        Most::GLOBALS[:pid] = pid
+
+        unless args.input.is_a?(Most::Path)
+          stdin.write(args.input)
+          stdin.close()
+        end
+
+        process_stdout = stdout.read()
+        process_stderr = stderr.read()
+
+        Most::GLOBALS[:output] = process_stdout
+
+        $stdout.puts(process_stdout)
+        $stderr.puts(process_stderr)
+      end
+    end
+
+  end
+end

data/lib/most/tasks/general/win/ocaml.rb

@@ -0,0 +1,77 @@
+#    Most - Modular Open Software Tester.
+#    Copyright (C) 2009  Dmitrii Toksaitov
+#
+#    This file is part of Most.
+#
+#    Most is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    Most is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Most. If not, see <http://www.gnu.org/licenses/>.
+
+require 'rake/clean'
+
+CLEAN.include('*.cmi')
+CLEAN.include('*.cmo')
+
+namespace :win do
+  namespace :ocaml do
+
+    task :prepare do
+      ocaml_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'ocaml')
+        ocaml_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless ocaml_home.nil?
+        bin_path = File.join(ocaml_home, 'bin')
+        lib_path = File.join(ocaml_home, 'lib')
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{bin_path};#{ENV['PATH']}"
+        
+        ENV['OCAMLLIB'] = lib_path
+      end
+    end
+
+    task :compile, :source, :executable, :needs => [:prepare] do |task, args|
+      compilation_command = %{ocamlc #{args.source} -o #{args.executable}}
+
+      service = Most::SERVICES[:open4]
+      service.popen4(compilation_command) do |stdin, stdout, stderr, pid|
+        $stdout.puts(stdout.read())
+        $stderr.puts(stderr.read())
+      end
+    end
+
+    task :run, :executable, :input do |task, args|
+      args.with_defaults(:input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(args.executable) do |stdin, stdout, stderr, pid|
+        Most::GLOBALS[:pid] = pid
+
+        unless args.input.is_a?(Most::Path)
+          stdin.write(args.input)
+          stdin.close()
+        end
+
+        process_stdout = stdout.read()
+        process_stderr = stderr.read()
+
+        Most::GLOBALS[:output] = process_stdout
+
+        $stdout.puts(process_stdout)
+        $stderr.puts(process_stderr)
+      end
+    end
+
+  end
+end

data/lib/most/tasks/general/win/pascal.rb

@@ -0,0 +1,73 @@
+#    Most - Modular Open Software Tester.
+#    Copyright (C) 2009  Dmitrii Toksaitov
+#
+#    This file is part of Most.
+#
+#    Most is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    Most is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Most. If not, see <http://www.gnu.org/licenses/>.
+
+require 'rake/clean'
+
+CLEAN.include('*.o')
+
+namespace :win do
+  namespace :pascal do
+
+    task :prepare do
+      pascal_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'pascal')
+        pascal_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless pascal_home.nil?
+        bin_path = File.join(pascal_home, 'bin', 'i386-Win32')
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{bin_path};#{ENV['PATH']}"
+      end
+    end
+
+    task :compile, :source, :executable, :needs => [:prepare] do |task, args|
+      compilation_command = %{fpc -O3 -Mobjfpc #{args.source}}
+
+      service = Most::SERVICES[:open4]
+      service.popen4(compilation_command) do |stdin, stdout, stderr, pid|
+        $stdout.puts(stdout.read())
+        $stderr.puts(stderr.read())
+      end
+    end
+
+    task :run, :executable, :input do |task, args|
+      args.with_defaults(:input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(args.executable) do |stdin, stdout, stderr, pid|
+        Most::GLOBALS[:pid] = pid
+
+        unless args.input.is_a?(Most::Path)
+          stdin.write(args.input)
+          stdin.close()
+        end
+
+        process_stdout = stdout.read()
+        process_stderr = stderr.read()
+
+        Most::GLOBALS[:output] = process_stdout
+
+        $stdout.puts(process_stdout)
+        $stderr.puts(process_stderr)
+      end
+    end
+
+  end
+end

data/lib/most/tasks/general/win/perl.rb

@@ -0,0 +1,61 @@
+#    Most - Modular Open Software Tester.
+#    Copyright (C) 2009  Dmitrii Toksaitov
+#
+#    This file is part of Most.
+#
+#    Most is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    Most is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Most. If not, see <http://www.gnu.org/licenses/>.
+
+require 'rake/clean'
+
+namespace :win do
+  namespace :perl do
+
+    task :prepare do
+      perl_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'perl')
+        perl_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless perl_home.nil?
+        bin_path = File.join(perl_home, 'bin')
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{bin_path};#{ENV['PATH']}"
+      end
+    end
+
+    task :run, :executable, :input, :needs => [:prepare] do |task, args|
+      args.with_defaults(:input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(%{perl #{args.executable}}) do |stdin, stdout, stderr, pid|
+        Most::GLOBALS[:pid] = pid
+
+        unless args.input.is_a?(Most::Path)
+          stdin.write(args.input)
+          stdin.close()
+        end
+
+        process_stdout = stdout.read()
+        process_stderr = stderr.read()
+
+        Most::GLOBALS[:output] = process_stdout
+
+        $stdout.puts(process_stdout)
+        $stderr.puts(process_stderr)
+      end
+    end
+
+  end
+end

data/lib/most/tasks/general/win/php.rb

@@ -0,0 +1,59 @@
+#    Most - Modular Open Software Tester.
+#    Copyright (C) 2009  Dmitrii Toksaitov
+#
+#    This file is part of Most.
+#
+#    Most is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    Most is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Most. If not, see <http://www.gnu.org/licenses/>.
+
+require 'rake/clean'
+
+namespace :win do
+  namespace :php do
+
+    task :prepare do
+      php_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'php')
+        php_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless php_home.nil?
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{php_home};#{ENV['PATH']}"
+      end
+    end
+
+    task :run, :executable, :input, :needs => [:prepare] do |task, args|
+      args.with_defaults(:input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(%{php #{args.executable}}) do |stdin, stdout, stderr, pid|
+        Most::GLOBALS[:pid] = pid
+
+        unless args.input.is_a?(Most::Path)
+          stdin.write(args.input)
+          stdin.close()
+        end
+
+        process_stdout = stdout.read()
+        process_stderr = stderr.read()
+
+        Most::GLOBALS[:output] = process_stdout
+
+        $stdout.puts(process_stdout)
+        $stderr.puts(process_stderr)
+      end
+    end
+
+  end
+end

data/lib/most/tasks/general/win/python.rb

@@ -0,0 +1,59 @@
+#    Most - Modular Open Software Tester.
+#    Copyright (C) 2009  Dmitrii Toksaitov
+#
+#    This file is part of Most.
+#
+#    Most is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    Most is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Most. If not, see <http://www.gnu.org/licenses/>.
+
+require 'rake/clean'
+
+namespace :win do
+  namespace :python do
+
+    task :prepare do
+      python_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'python')
+        python_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless python_home.nil?
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{python_home};#{ENV['PATH']}"
+      end
+    end
+
+    task :run, :executable, :input, :needs => [:prepare] do |task, args|
+      args.with_defaults(:input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(%{python -O #{args.executable}}) do |stdin, stdout, stderr, pid|
+        Most::GLOBALS[:pid] = pid
+
+        unless args.input.is_a?(Most::Path)
+          stdin.write(args.input)
+          stdin.close()
+        end
+
+        process_stdout = stdout.read()
+        process_stderr = stderr.read()
+
+        Most::GLOBALS[:output] = process_stdout
+
+        $stdout.puts(process_stdout)
+        $stderr.puts(process_stderr)
+      end
+    end
+
+  end
+end

data/lib/most/tasks/general/win/ruby.rb

@@ -0,0 +1,61 @@
+#    Most - Modular Open Software Tester.
+#    Copyright (C) 2009  Dmitrii Toksaitov
+#
+#    This file is part of Most.
+#
+#    Most is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    Most is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Most. If not, see <http://www.gnu.org/licenses/>.
+
+require 'rake/clean'
+
+namespace :win do
+  namespace :ruby do
+
+    task :prepare do
+      ruby_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'ruby')
+        ruby_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless ruby_home.nil?
+        bin_path = File.join(ruby_home, 'bin')
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{ruby_home};#{ENV['PATH']}"
+      end
+    end
+
+    task :run, :executable, :input, :needs => [:prepare] do |task, args|
+      args.with_defaults(:input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(%{ruby #{args.executable}}) do |stdin, stdout, stderr, pid|
+        Most::GLOBALS[:pid] = pid
+
+        unless args.input.is_a?(Most::Path)
+          stdin.write(args.input)
+          stdin.close()
+        end
+
+        process_stdout = stdout.read()
+        process_stderr = stderr.read()
+
+        Most::GLOBALS[:output] = process_stdout
+
+        $stdout.puts(process_stdout)
+        $stderr.puts(process_stderr)
+      end
+    end
+
+  end
+end