Merge pull request #124 from TitouanT/prolog_main

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

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