eval: limit docker output to not run out of memory

languages/apl/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.apl
+cat > program.apl
 apl --OFF -s -f program.apl || true

languages/bash/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.sh
+cat > program.sh
 bash program.sh || true

languages/brainfuck/run.sh

@@ -1 +1 @@
-printf %s "$1" | bf || true
+cat | bf || true

languages/c/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.c
+cat > program.c
 gcc program.c -o program && ./program || true

languages/clojure/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.clj
+cat > program.clj
 clojure program.clj || true

languages/cpp/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.cpp
+cat > program.cpp
 g++ program.cpp -o program && ./program || true

languages/csharp/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.cs
+cat > program.cs
 csc program.cs >/dev/null && mono program.exe || true

languages/elixir/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.exs
+cat > program.exs
 elixir program.exs || true

languages/erlang/run.sh

@@ -1,3 +1,3 @@
 echo "%% -*- erlang -*-" > program.erl
-printf %s "$1" >> program.erl
+cat >> program.erl
 escript program.erl || true

languages/fsharp/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.fs
+cat > program.fs
 fsharpc --optimize- program.fs >/dev/null && mono program.exe || true

languages/go/run.sh

@@ -1,3 +1,3 @@
 export GOCACHE=/tmp/"$CODEDIR"/cache
-printf %s "$1" > program.go
+cat > program.go
 go run program.go || true

languages/haskell/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.hs
+cat > program.hs
 ghc -e main program.hs || true

languages/idris/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > Main.idr
+cat > Main.idr
 idris --execute ./Main.idr || true

languages/java/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > Main.java
+cat > Main.java
 javac Main.java && java Main || true

languages/javascript/run.sh

@@ -1 +1 @@
-printf %s "$1" | node -p || true
+cat | node -p || true

languages/julia/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.jl
+cat > program.jl
 julia program.jl || true

languages/lua/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.lua
+cat > program.lua
 lua5.3 program.lua || true

languages/ocaml/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.ml
+cat > program.ml
 ocamlopt -cclib --static -o program program.ml && ./program || true

languages/pascal/run.sh

@@ -1,4 +1,4 @@
-printf %s "$1" > program.pas
+cat > program.pas
 
 # fpc does not use stderr, ld however does, capture both
 res="$(fpc program.pas 2>&1)"

languages/perl/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.pl
+cat > program.pl
 perl program.pl || true

languages/php/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.php
+cat > program.php
 php program.php || true

languages/prolog/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.pl
+cat > program.pl
 swipl --quiet program.pl || true

languages/python/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.py
+cat > program.py
 python program.py || true

languages/racket/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.rkt
+cat > program.rkt
 racket program.rkt || true

languages/ruby/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.rb
+cat > program.rb
 ruby program.rb || true

languages/rust/run.sh

@@ -1,2 +1,2 @@
-printf %s "$1" > program.rs
+cat > program.rs
 rustc -C opt-level=0 --color never program.rs && ./program || true

src/Myriad/Docker.hs

@@ -179,8 +179,9 @@ evalCode lang@LanguageConfig { name, timeout, retries } numRetries code = withCo
             exec_ ["docker exec ", cs cnt, " mkdir eval/", show snowflake]
             exec_ ["docker exec ", cs cnt, " chmod 777 eval/", show snowflake]
             -- User 1001 will be used for the actual execution so that they can't access `eval` itself
-            let args = ["exec", "-u1001:1001", "-w/tmp/eval/" <> show snowflake, cnt, "/bin/sh", "/var/run/run.sh", code]
+            let cmd = concat ["docker exec -i -u1001:1001 -w/tmp/eval/", show snowflake, " ", cnt, " /bin/sh /var/run/run.sh | head -c 4K"]
-            output <- readProcessInterleaved_ $ proc "docker" args
+                pr = setStdin (byteStringInput $ cs code) $ shell cmd
+            output <- readProcessInterleaved_ pr
             exec_ ["docker exec ", cnt, " rm -rf eval/", show snowflake]
             logInfo ["Ran code in container ", cs cnt, ", evaluation ", cs $ show snowflake]
             pure $ EvalOk output