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

Merge pull request #124 from TitouanT/prolog_main

Browse source 
call main\1 predicate with arguments list if any
This commit is contained in:
Brian Seymour 2021-02-23 22:23:59 -06:00 • committed by GitHub
commit e7d2cd5f0e
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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 | sed 's/^.*$/:- forall((Goal = (\0), call(Goal)), (write(Goal), nl))./' stdin.stdin |
cat code.code - > code.pl 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 timeout -s KILL 3 swipl -g true -t halt code.pl