Mascali/piston
1
0
Fork 0
mirror of https://github.com/engineer-man/piston.git synced 2025-04-22 13:06:27 +02:00
Code Issues Projects Releases Wiki Activity

call main\1 predicate with arguments list if any

Browse source
This commit is contained in:
TitouanT 2021-02-23 10:43:44 +01:00
parent 87b124c737
commit 1305dc9e3f
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lxc/executors/prolog
View file

@ -5,4 +5,9 @@ cd /tmp/$1
sed 's/^.*$/:- forall((Goal = (\0), call(Goal)), (write(Goal), nl))./' stdin.stdin |
cat code.code - > code.pl
if [ -s args.args ]
then
echo ":- main($(jq --raw-input -c --slurp 'split("\n")' args.args))." >> code.pl
fi
timeout -s KILL 3 swipl -g true -t halt code.pl