most 0.7.5 → 0.7.6

data/lib/most/submissions/ocaml_sample.rb

@@ -3,7 +3,7 @@ submission do
 
   entities :source_file => path('main.ml'), :executable => path('main.exe')
 
-  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+  options  :tests => {:report => {:differences => true, :time => true, :specs => false},
                       :steps  => {:break => {:unsuccessful => true}}}
 
   YAML.load_file('tests.yml').each_with_index do |specs, i|
@@ -22,8 +22,8 @@ submission do
         end
 
         add_step Proc do
-          timeout specs[:time] do
-            total_memory_out specs[:memory] do
+          timeout_with_specs specs[:time] do
+            total_memory_out_with_specs specs[:memory] do
               rake_clean 'win:ocaml:run', entities[:executable], input
             end
           end

data/lib/most/submissions/pascal_sample.rb

@@ -3,7 +3,7 @@ submission do
 
   entities :source_file => path('main.pas'), :executable => path('main.exe')
 
-  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+  options  :tests => {:report => {:differences => true, :time => true, :specs => false},
                       :steps  => {:break => {:unsuccessful => true}}}
 
   YAML.load_file('tests.yml').each_with_index do |specs, i|
@@ -22,8 +22,8 @@ submission do
         end
 
         add_step Proc do
-          timeout specs[:time] do
-            total_memory_out specs[:memory] do
+          timeout_with_specs specs[:time] do
+            total_memory_out_with_specs specs[:memory] do
               rake_clean 'win:pascal:run', entities[:executable], input
             end
           end

data/lib/most/submissions/perl_sample.rb

@@ -3,7 +3,7 @@ submission do
 
   entities :executable  => path('main.pl')
 
-  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+  options  :tests => {:report => {:differences => true, :time => true, :specs => false},
                       :steps  => {:break => {:unsuccessful => true}}}
 
   YAML.load_file('tests.yml').each_with_index do |specs, i|
@@ -18,8 +18,8 @@ submission do
         name 'Perl Runner'
 
         add_step Proc do
-          timeout specs[:time] do
-            total_memory_out specs[:memory] do
+          timeout_with_specs specs[:time] do
+            total_memory_out_with_specs specs[:memory] do
               rake_clean 'win:perl:run', entities[:executable], input
             end
           end

data/lib/most/submissions/php_sample.rb

@@ -3,7 +3,7 @@ submission do
 
   entities :executable  => path('main.php')
 
-  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+  options  :tests => {:report => {:differences => true, :time => true, :specs => false},
                       :steps  => {:break => {:unsuccessful => true}}}
 
   YAML.load_file('tests.yml').each_with_index do |specs, i|
@@ -18,8 +18,8 @@ submission do
         name 'PHP Runner'
 
         add_step Proc do
-          timeout specs[:time] do
-            total_memory_out specs[:memory] do
+          timeout_with_specs specs[:time] do
+            total_memory_out_with_specs specs[:memory] do
               rake_clean 'win:php:run', entities[:executable], input
             end
           end

data/lib/most/submissions/python_sample.rb

@@ -3,7 +3,7 @@ submission do
 
   entities :executable  => path('main.py')
 
-  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+  options  :tests => {:report => {:differences => true, :time => true, :specs => false},
                       :steps  => {:break => {:unsuccessful => true}}}
 
   YAML.load_file('tests.yml').each_with_index do |specs, i|
@@ -18,8 +18,8 @@ submission do
         name 'Python Runner'
 
         add_step Proc do
-          timeout specs[:time] do
-            total_memory_out specs[:memory] do
+          timeout_with_specs specs[:time] do
+            total_memory_out_with_specs specs[:memory] do
               rake_clean 'win:python:run', entities[:executable], input
             end
           end

data/lib/most/submissions/ruby_sample.rb

@@ -3,7 +3,7 @@ submission do
 
   entities :executable  => path('main.rb')
 
-  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+  options  :tests => {:report => {:differences => true, :time => true, :specs => false},
                       :steps  => {:break => {:unsuccessful => true}}}
 
   YAML.load_file('tests.yml').each_with_index do |specs, i|
@@ -18,8 +18,8 @@ submission do
         name 'Ruby Runner'
 
         add_step Proc do
-          timeout specs[:time] do
-            total_memory_out specs[:memory] do
+          timeout_with_specs specs[:time] do
+            total_memory_out_with_specs specs[:memory] do
               rake_clean 'win:ruby:run', entities[:executable], input
             end
           end

data/lib/most/submissions/vb_sample.rb

@@ -3,7 +3,7 @@ submission do
 
   entities :source_file => path('main.vb'), :executable => path('main.exe')
 
-  options  :tests => {:report => {:differences => true, :time => true, :specs => true},
+  options  :tests => {:report => {:differences => true, :time => true, :specs => false},
                       :steps  => {:break => {:unsuccessful => true}}}
 
   YAML.load_file('tests.yml').each_with_index do |specs, i|
@@ -22,8 +22,8 @@ submission do
         end
 
         add_step Proc do
-          timeout specs[:time] do
-            total_memory_out specs[:memory] do
+          timeout_with_specs specs[:time] do
+            total_memory_out_with_specs specs[:memory] do
               rake_clean 'win:vb:run', entities[:executable], input
             end
           end

data/lib/most/tasks/general/win/borland_delphi.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 :borland_delphi do
+
+    task :prepare do
+      borland_delphi_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'borland_delphi')
+        borland_delphi_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless borland_delphi_home.nil?
+        bin_path = File.join(borland_delphi_home, 'bin')
+
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{bin_path};#{ENV['PATH']}"
+      end
+    end
+
+    task :compile, :source, :needs => [:prepare] do |task, args|
+      compilation_command = %{dcc32 -cc -$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/brainf.rb

@@ -0,0 +1,69 @@
+#    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('app.b')
+CLEAN.include('*.out')
+
+namespace :win do
+  namespace :brainf do
+
+    task :prepare do
+      brainf_home = nil
+      Most::DIRECTORIES[:vendors].each do |directory|
+        possible_path = File.join(directory, 'brainf')
+        brainf_home = possible_path if File.directory?(possible_path)
+      end
+
+      unless brainf_home.nil?
+        ENV['PATH'] ||= ''; ENV['PATH'] = "#{brainf_home};#{ENV['PATH']}"
+      end
+    end
+
+    task :run, :executable, :input, :needs => [:prepare] do |task, args|
+      args.with_defaults(:input => '')
+
+      input = ''
+      if args.input.is_a?(Most::Path)
+        input = File.read(args.input)
+      else
+        input = args.input
+      end
+
+      source = File.read(args.executable)
+
+      File.open('app.b', 'w+') do |io|
+        io.write("#{source}!#{input}")
+      end
+
+      IO.popen(%{bff4.exe <app.b 1>std.out 2>err.out}, 'r') do |io|
+        Most::GLOBALS[:pid] = io.pid
+      end
+
+      process_stdout = File.read('std.out') rescue ''
+      process_stderr = File.read('err.out') rescue ''
+
+      Most::GLOBALS[:output] = process_stdout
+
+      $stdout.puts(process_stdout)
+      $stderr.puts(process_stderr)
+    end
+
+  end
+end

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

@@ -0,0 +1,45 @@
+#    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
+
+  task :run, :executable, :arguments do |task, args|
+    args.with_defaults(:arguments => '')
+
+    service = Most::SERVICES[:open4]
+    service.popen4(%{#{args.executable} #{args.arguments}}) 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

data/lib/most.rb

@@ -38,7 +38,7 @@ require 'most/structures/submission'
 module Most
   FULL_NAME = 'Most, the Core'
   UNIX_NAME = 'most'
-  VERSION   = '0.7.5'
+  VERSION   = '0.7.6'
 
   AUTHOR = 'Toksaitov Dmitrii Alexandrovich'
 

data/samples/custom/ones/check.dpr

@@ -0,0 +1,15 @@
+uses
+    testlib, sysutils;
+
+var
+    ja, pa: longint;
+
+begin
+    ja := ans.readlongint;
+    pa := ouf.readlongint;
+
+    if ja <> pa then
+        quit(_wa, format('expected: %d, found: %d', [ja, pa]));
+
+    quit(_ok, '');
+end.

data/samples/custom/ones/ones_is.dpr

@@ -0,0 +1,23 @@
+{$o-,q+,r+}
+{$MINSTACKSIZE $00400000}
+{$APPTYPE console}
+uses
+    math, sysutils;
+type
+    int = longint;
+const
+    maxn = 2000000000;
+var
+    n, i, j: int;
+begin
+    reset(input, 'ones.in');
+    rewrite(output, 'ones.out');
+
+    read(n);
+    assert((0 <= n) and (n <= maxn));
+    i := 0;
+    for j := 0 to 31 do
+        if (n and (1 shl j)) > 0 then
+            inc(i);
+    write(i);
+end.

data/samples/custom/ones/ones_rs.dpr

@@ -0,0 +1,25 @@
+{$r+,q+,o-}
+{$apptype console}
+const
+  problem_name = 'ones';
+
+type
+  int = longint;
+
+var
+  n, ans: int;
+
+begin
+  reset(input, problem_name + '.in');
+  rewrite(output, problem_name + '.out');
+
+  read(n);
+  ans:=0;
+  while (n > 0) do
+  begin
+    inc(ans);
+    n:=n and (n - 1);
+  end;
+
+  writeln(ans);
+end.

data/samples/custom/ones/problem.xml

@@ -0,0 +1,21 @@
+<problem
+    id = "ru.ifmo.neerc.io.20051021.ones"
+    version = "1.0"
+>
+    <judging>
+        <script type = "%icpc">
+            <testset
+                test-count   = "65"
+                input-href   = "tests/##."
+                answer-href  = "tests/##.a"
+                input-name   = "ones.in"
+                output-name  = "ones.out"
+                time-limit   = "2s"
+                memory-limit = "67108864"
+            />
+            <verifier type = "%testlib">
+                <binary executable-id = "x86.exe.win32" file = "check.exe" />
+            </verifier>
+        </script>
+    </judging>
+</problem>

data/samples/custom/ones/tests/clean.bat

@@ -0,0 +1,5 @@
+@echo off
+del ??
+del ??.a
+del shuffle.exe
+del ones_rs.exe

data/samples/custom/ones/tests/make.bat

@@ -0,0 +1,9 @@
+@echo off
+dcc32 -cc shuffle.dpr
+
+shuffle.exe
+
+dcc32 -cc ..\ones_rs.dpr
+copy ..\ones_rs.exe ones_rs.exe >nul 2>&1
+
+call make_answers.bat

data/samples/custom/ones/tests/make_answers.bat

@@ -0,0 +1,30 @@
+@echo off
+
+set problem_id=ones
+
+set solution_name=%problem_id%_rs.exe
+set input_file=%problem_id%.in
+set output_file=%problem_id%.out
+
+rem set run_string=run %solution_name% -t 2
+set run_string=%solution_name%
+
+for /L %%i in (1,1,9) do (
+    if EXIST 0%%i (
+        copy 0%%i %input_file% >nul 2>&1
+        %run_string%
+        copy %output_file% 0%%i.a >nul 2>&1
+        del %input_file% >nul 2>&1
+        del %output_file% >nul 2>&1
+    )
+)
+
+for /L %%i in (10,1,99) do (
+    if EXIST %%i (
+        copy %%i %input_file% >nul 2>&1
+        %run_string%
+        copy %output_file% %%i.a >nul 2>&1
+        del %input_file% >nul 2>&1
+        del %output_file% >nul 2>&1
+    )
+)

data/samples/custom/ones/tests/shuffle.dpr

@@ -0,0 +1,31 @@
+{$r+,q+,o-}
+{$apptype console}
+type
+  int = longint;
+
+var
+  test_num: int;
+
+procedure write_test(n: int);
+begin
+  inc(test_num);
+  rewrite(output, chr((test_num div 10) + ord('0')) + chr((test_num mod 10) + ord('0')));
+
+  writeln(n);
+
+  close(output);
+end;
+
+var
+  n: int;
+
+begin
+  reset(input, 'tests.lst');
+  test_num:=0;
+  while not seekeof do
+  begin
+    read(n);
+    readln;
+    write_test(n);
+  end;
+end.

data/samples/custom/ones/tests/tests.lst

@@ -0,0 +1,69 @@
+1 * ������ ����
+2
+3
+4
+5
+6
+7
+8
+9
+10
+
+15 * ��᫠ ���� 2^n - 1
+31
+63
+127
+255
+511
+1023
+2047
+4095
+8191
+16383
+32767
+65535
+131071
+262143
+524287
+1048575
+2097151
+4194303
+8388607
+16777215
+33554431
+67108863
+134217727
+268435455
+536870911
+1073741823
+
+239 * �����᪨� �᫠ :)
+361
+239239
+361361
+239239239
+361361361
+777
+777777
+777777777
+
+301989888 * ����訥 �᫠ � ������訬 �⢥⮬
+1342185472
+1207959702
+
+1328666675 * ����让 ࠭���
+1379023971
+842875669
+1580370415
+1648576208
+841019377
+299075767
+1762408125
+1913560211
+1187963543
+384151747
+140735642
+575795253
+1381422918
+909353819
+288693859

data/samples/problem/solutions/brainf/main.b

@@ -0,0 +1 @@
+,>++++++[<-------->-],[<+>-]<.

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

@@ -0,0 +1,19 @@
+---
+# Correct Tests
+- :memory: 10485760
+  :input: 22
+  :time: 10
+  :output: "4"
+- :memory: 10485760
+  :input: 11
+  :time: 10
+  :output: "2"
+# Incorrect Tests
+- :memory: 10485760
+  :input: 72
+  :time: 10
+  :output: "42"
+- :memory: 10485760
+  :input: 32
+  :time: 10
+  :output: "42"

data/samples/problem/solutions/delphi/main.dpr

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

data/samples/problem/solutions/delphi/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/tasks/samples.rb

@@ -24,7 +24,7 @@ namespace :samples do
 
     source = File.join(MOST_ROOT, 'samples', '.')
     destination = Most::DIRECTORIES[:temp].first
-         
+
     FileUtils.cp_r(source, destination, {:verbose => true})
   end