most 0.7.3

data/lib/most/submissions/python_sample.rb

@@ -0,0 +1,32 @@
+submission do
+  name 'Simple Python Submission'
+
+  entities :executable  => path('main.py')
+
+  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+                      :steps  => {:break => {:unsuccessful => true}}}
+
+  YAML.load_file('tests.yml').each_with_index do |specs, i|
+
+    add_test TestCase do
+      name "Test #{i + 1}"
+
+      input  specs[:input]
+      output specs[:output]
+
+      runner TestRunner do
+        name 'Python Runner'
+
+        add_step Proc do
+          timeout specs[:time] do
+            total_memory_out specs[:memory] do
+              rake_clean 'win:python:run', entities[:executable], input
+            end
+          end
+        end
+
+      end
+    end
+
+  end
+end

data/lib/most/submissions/ruby_sample.rb

@@ -0,0 +1,32 @@
+submission do
+  name 'Simple Ruby Submission'
+
+  entities :executable  => path('main.rb')
+
+  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+                      :steps  => {:break => {:unsuccessful => true}}}
+
+  YAML.load_file('tests.yml').each_with_index do |specs, i|
+
+    add_test TestCase do
+      name "Test #{i + 1}"
+
+      input  specs[:input]
+      output specs[:output]
+
+      runner TestRunner do
+        name 'Ruby Runner'
+
+        add_step Proc do
+          timeout specs[:time] do
+            total_memory_out specs[:memory] do
+              rake_clean 'win:ruby:run', entities[:executable], input
+            end
+          end
+        end
+
+      end
+    end
+
+  end
+end

data/lib/most/submissions/vb_sample.rb

@@ -0,0 +1,36 @@
+submission do
+  name 'Simple Visual Basic Submission'
+
+  entities :source_file => path('main.vb'), :executable => path('main.exe')
+
+  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+                      :steps  => {:break => {:unsuccessful => true}}}
+
+  YAML.load_file('tests.yml').each_with_index do |specs, i|
+
+    add_test TestCase do
+      name "Test #{i + 1}"
+
+      input  specs[:input]
+      output specs[:output]
+
+      runner TestRunner do
+        name 'Visual Basic Runner'
+
+        add_step Proc do
+          rake_clean 'win:vb:compile', entities[:source_file]
+        end
+
+        add_step Proc do
+          timeout specs[:time] do
+            total_memory_out specs[:memory] do
+              rake_clean 'win:vb:run', entities[:executable], input
+            end
+          end
+        end
+
+      end
+    end
+
+  end
+end

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

@@ -0,0 +1,60 @@
+#    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 :cs do
+
+    task :compile, :source, :needs => ['win:vs:find_vsvars'] do |task, args|
+      path = ENV['VSVARS']
+
+      preparation_command = path.nil? ? '' : "call \"#{path}\" &&"
+      compilation_command = %{#{preparation_command} csc /optimize+ #{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/erlang.rb

@@ -0,0 +1,86 @@
+#    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('*.dump')
+
+namespace :win do
+  namespace :erlang do
+
+    task :prepare do
+      erlang_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'erlang')
+        erlang_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless erlang_home.nil?
+        bin_path      = File.join(erlang_home, 'bin')
+        erts_bin_path = File.join(erlang_home, 'erts', 'bin')
+
+        ini_files = [File.join(bin_path, 'erl.ini').gsub(/[\/|\\]/, '\\\\\\\\'),
+                     File.join(erts_bin_path, 'erl.ini').gsub(/[\/|\\]/, '\\\\\\\\')]
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{bin_path};#{ENV['PATH']}"
+
+        ini_files.each do |path|
+          File.open(path, 'w+') do |io|
+            io.write "[erlang]\n" +
+            "Bindir=#{erts_bin_path}\n" +
+            "Progname=erl\n" +
+            "Rootdir=#{erlang_home}\n"
+          end rescue nil
+        end
+      end
+    end
+
+    task :compile, :source, :needs => [:prepare] do |task, args|
+      compilation_command = %{erlc #{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, :entry_function, :input do |task, args|
+      args.with_defaults(:entry_function => '', :input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(%{erl -noshell -run #{args.entry_function} -s init stop}) 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/gcc.rb

@@ -0,0 +1,39 @@
+#    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 :gcc do
+
+    task :prepare do
+      gcc_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'gcc')
+        gcc_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless gcc_home.nil?
+        bin_path = File.join(gcc_home, 'bin')
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{bin_path};#{ENV['PATH']}"
+      end
+    end
+
+  end
+end

data/lib/most/tasks/general/win/haskell.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'
+
+CLEAN.include('*.hi')
+CLEAN.include('*.o')
+
+namespace :win do
+  namespace :haskell do
+
+    task :prepare do
+      haskell_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'haskell')
+        haskell_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless haskell_home.nil?
+        bin_path = File.join(haskell_home, 'bin')
+        extralibs_bin_path = File.join(haskell_home, 'extralibs', 'bin')
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{bin_path};#{extralibs_bin_path};#{ENV['PATH']}"
+      end
+    end
+
+    task :compile, :source, :needs => [:prepare] do |task, args|
+      compilation_command = %{ghc -O #{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/java.rb

@@ -0,0 +1,72 @@
+#    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 :java do
+
+    task :prepare do
+      java_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'java')
+        java_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless java_home.nil?
+        bin_path = File.join(java_home, 'bin')
+
+        ENV['PATH']      ||= ''; ENV['PATH']      = "#{bin_path};#{ENV['PATH']}"
+        ENV['JAVA_HOME'] ||= ''; ENV['JAVA_HOME'] = java_home
+      end
+    end
+
+    task :compile, :source, :needs => [:prepare] do |task, args|
+      compilation_command = %{javac #{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(%{java #{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/lisp.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 :lisp do
+
+    task :prepare do
+      lisp_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'lisp')
+        lisp_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless lisp_home.nil?
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{lisp_home};#{ENV['PATH']}"
+      end
+    end
+
+    task :run, :executable, :input, :needs => [:prepare] do |task, args|
+      args.with_defaults(:input => '')
+
+      service = Most::SERVICES[:open4]
+      service.popen4(%{clisp #{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