most 0.7.3

data/lib/most/tasks/general/win/vb.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 :vb 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} vbc /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/vc.rb

@@ -0,0 +1,79 @@
+#    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('*.obj')
+
+namespace :win do
+  namespace :vc do
+
+    task :prepare do
+      vc_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'vc')
+        vc_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless vc_home.nil?
+        bin_path     = File.join(vc_home, 'bin')
+        include_path = File.join(vc_home, 'include')
+        lib_path     = File.join(vc_home, 'lib')
+
+        ENV['PATH']    ||= ''; ENV['PATH']    = "#{bin_path};#{ENV['PATH']}"
+        ENV['INCLUDE'] ||= ''; ENV['INCLUDE'] = "#{include_path};#{ENV['INCLUDE']}"
+        ENV['LIB']     ||= ''; ENV['LIB']     = "#{lib_path};#{ENV['LIB']}"
+      end
+
+      ENV['CL'] = '/EHsc'
+    end
+
+    task :compile, :source, :needs => [:prepare] do |task, args|
+      compilation_command = %{cl /O2 #{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/vs.rb

@@ -0,0 +1,52 @@
+#    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 :vs do
+
+    task :find_vsvars do
+      if not ENV['VS90COMNTOOLS'].nil?
+        ENV['VSVARS'] = File.join(ENV['VS90COMNTOOLS'], 'vsvars32.bat')
+      elsif ENV['VS80COMNTOOLS'].nil?
+        ENV['VSVARS'] = File.join(ENV['VS80COMNTOOLS'], 'vsvars32.bat')
+      else
+        program_files_paths = [ENV['%PROGRAMW6432%'], ENV['%PROGRAMFILES(X86)%']]
+        vs_home_paths = ['Microsoft Visual Studio 9.0', 'Microsoft Visual Studio 8']
+
+        paths_tail = File.join('Common7', 'Tools', 'vsvars32.bat')
+
+        paths = []
+        vs_home_paths.each do |home|
+          program_files_paths.each do |path|
+            paths << File.join(path, home, paths_tail)
+          end
+        end
+
+        paths.each do |path|
+          if File.exist?(path)
+            ENV['VSVARS'] = path; break;
+          end
+        end
+
+      end
+    end
+
+  end
+end

data/samples/problem/solutions/cpp/main.cpp

@@ -0,0 +1,9 @@
+#include <iostream>
+
+using namespace std;
+
+void main()
+{
+	int a, b; cin >> a >> b;
+	cout << a + b << endl;
+}

data/samples/problem/solutions/cpp/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/cs/main.cs

@@ -0,0 +1,17 @@
+using System;
+
+namespace Main
+{
+    public class Program
+    {
+        public static void Main(string[] args)
+        {
+            string[] numbers = Console.ReadLine().Split(new char[] { ' ' });
+
+            int a = int.Parse(numbers[0]);
+            int b = int.Parse(numbers[1]);
+
+            Console.WriteLine(a + b);
+        }
+    }
+}

data/samples/problem/solutions/cs/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/erlang/main.erl

@@ -0,0 +1,2 @@
+-module(main). -export([start/0]).
+start() -> io:write(lists:sum(element(2, io:fread("", "~d ~d")))).

data/samples/problem/solutions/erlang/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/haskell/main.hs

@@ -0,0 +1,5 @@
+module Main where
+
+main = do
+        s <- getLine
+        putStrLn $ show $ sum $ map read (words s)

data/samples/problem/solutions/haskell/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/java/Main.java

@@ -0,0 +1,14 @@
+import java.util.Scanner;
+
+public class Main
+{
+       public static void main (String[] argv)
+       {
+         Scanner theScanner = new Scanner(System.in);
+         
+         int a = theScanner.nextInt();
+         int b = theScanner.nextInt();
+		 
+         System.out.println(a + b);
+       }
+}

data/samples/problem/solutions/java/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/lisp/main.lisp

@@ -0,0 +1 @@
+(print (+ (read) (read)))

data/samples/problem/solutions/lisp/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/lua/main.lua

@@ -0,0 +1,4 @@
+a = io.read("*n"); 
+b = io.read("*n"); 
+
+print(a + b)

data/samples/problem/solutions/lua/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/ocaml/main.ml

@@ -0,0 +1,3 @@
+let main = read_line() in
+	let sum = Scanf.sscanf main "%d %d" (fun x y -> x + y) in
+		print_int sum;;

data/samples/problem/solutions/ocaml/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/pascal/main.pas

@@ -0,0 +1,5 @@
+var a, b: integer;
+begin
+	Read(a, b);
+	Writeln(a + b);
+end.

data/samples/problem/solutions/pascal/tests.yml

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 15 27
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 33 9
+  :time: 10
+  :output: "42"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 47774 65656
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 547584 4857487
+  :time: 10
+  :output: "42"